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DAlnamic verschijnt tweemaandelijks. 
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jaargang toegezonden. 
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ig REM MENU nod { Га 
192 COLORG 9 15 19 14 Do do4 | 
195 DF=0: SPATIE=7 bode 5 ап с Lee 
e ree ; MALE nee 119 Y1-240:X1-50:CC-21 
FUNETIE WIL ТОП ZIEN 129 T$="WELKE FUNKTIE WILT U ZIEN 2": 
GOSUB 20900 
139 CC-21:DRAW 250,235 278,254 22:DRAW 


260,235 279,218 227:DRAM 270,254 
fi "n š S Ms 275,244 22:DRAW 270,216 275,226 22 
ANG . Р UP KI ks 135 T$-"CHR. MTS": X1=270: Y1=250: GOSUB 
: 20090: X1-280: Y1=220: T$="ALMELO": 
. | GOSUB 20000 
JANE CH НЕТ CHEZ: Я | 140 CC-23:X1-20:Y1-210:T$-"AND (А)= 

Í ` i E CHRS(@)":GOSUB 20000: ТФ=СНЕФ (9) : X1= 
220: GOSUB 20000 
ng ^1 2 145 Xi-20:Y1-190: T&-"NAND (NA) =СНЕФ (9) + 
ғ” 2 | CHR$(3)":808UB 20000:SPATIE-15:T$- 
СНЕФ (0) +СНЕФ (3): X1=229: GOSUB 20000: 




















TRES ç А ` SPATIE=7 
4 ПЕ Ne > 159 X1=20:V1=170: T$="DR (9) = 
z CHRS(1)":GOSUB 20000: T$-CHR$ (1) :X1— 
E BN | 220:G0SUB 20000 
HOT et : d"? A қ 155 X1=2@:Y1=150:T$="NOR — (ND)-CHR$ (1)4 سم سم‎ 
Weck CR CHRS (3) ": GOSUB 26000:SPATIE-15:T$- | | = 
СНЕФ (1) +CHR$ (3) : X1=229: GOSUB. 20000: — ` 
sf ^R Af ا‎ ) = SPATIE=7 
| LAUR ‘ =CHR E. 150 X1-20:Y1-2130: T$-"NOT (МТ) = 


CHR$(11)+CHR$(3)":BOSUB 20000: 
SPATIE-15: X1=22@: T$-CHR$ (11) + 


ж, 
IW 





f GEM. =CHREC ÛL y Ы CHR$ (3) : GOSUB 20009: 5РАТТЕ-7 

| z . = 1⁄5 Xi-20:Y1-110:T$-"EXOR (X)= 
_ i CHE MTS T | CHR$ (2) ": GOSUB 20000: X1=220: T$= 
ЫК i =Ü HD СӘ? . oi MEI r CHR$ (2): GOSUB 20000 
SKS: SE VM ALMELO LZ 179 Xi-20:Y1-90:T$-"GEN. (8)= 


CHR$(13)":608UB 20000:Х1-220:7%- 
CHR (13) :GOSUB 20000 
175 X1=20: Y1=70: T&-"SCHMT. (S)=CHRS (9) ": 
| GÜSUB 20000: X1=220: T$=CHR$ (9): 
Ga f SS ЧРИ : BOSUB 20009 
COLINT.CCOSCHESOCGOCHR$C?» 180 Xi-20:Y1-50:T$-"ENC ` (E)- 
CHR$(10)":G0SUB 20000: X1=220:T$= 
ER А " | СНЕФ (19) :GOSUB 20000 
aum. © "ung; E REE k YE: 182 X1=20: Y1-30: T-"CDUNT. (C) -CHR$ (6) + 
TAB-TOETS VOOR SCREEHLOP' CHRS(7)":GOSUB 20000: SPATIE=15: X1= 
220: T$=CHR$ (6) +СНЕФ (7) +СНЕ% (8) : 
GOSUB 20000: SPATIE=7 





EHC IE HRZ 

















PAGE oi — DIGITALE FUNCTIES 185 СГ-21:Х1і-20:Үіс10:7%-"ТАВ-ТОЕТ5 | | 
WES —. VOOR SCREENCOPY":GDSUB 20000: — 
5 CLEAR 256:MODE 9 4 | J ] SPATIE-B 
19 COLORT В 9 9 9:CLEAR 2006:COLORG © эш 199 Z-BETC: Z=GETC: Z-GETC 
9 9 @:MODE 6:COLORG 9 15 10 14: 290 I-GETC:IF Z=0 THEN 200 
MODE 6 | 2 IF 2-9.0 THEN RESTORE: BOSUB 60000: 
15 POKE #131,1 А mU ck e GOSUB 39009:G0TD 100 
29 DIM W$%(15.0) ir ë A : Ka 219 IF Z-ASC("N") THEN 400:REM NAND OF 
3e DF-i:FF-0:CC-20:SPATIE-ó: X1-50: Y 1= | u | | NOR üF NOT 
200 RR AS ы жа д. EH GE l^ 218 IF Z=ASC("A") THEM 1000:КЕМ AND 
40 FOR A=@ TO 2:X1=S@+A: Y1=200:CC=CC+1 ES | | At 1 [А 229 IF Z=ASC("0") THEN 2000:КЕМ OR 
45 T$-"DIGITALE TECHNIEK": GOSUB 20000: B L d M | E | 2 249 IF Z-ASC("X") THEN 4000:REM EXOR 
NEXT A:CC-20 NODE T EA ij d d 256 IF Z-ASC("G") THEN S008: REM 
5e FOR й=@ TO 2:X1=50+A:Y1=100:;:CC=UC+1 1 j | 1 KLOKGENERATOR 
55 T$-"AFD. ELECTRONICA. ":GOSUB 20000: pou 268 IF Z=ASC("S") THEN 6000:REM 
NEXT A SCHMITTRIGGER 
99 WAIT TIME 150 ЖЖЖ Use FGT as indicated in DAInamic 31 p.351 **x 278 IF Z-ASC("E") THEN 7800:REM ENCODER 
95 MODE 4 299 IF Z=ASC("C") THEN 9000:КЕМ COUNTER 
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308 GOTO 190 L 4e x cp 5079 FOR A=186 TO 219:DDT A,154 21:DOT 





































































































400 Z-BETC:lF 2-0 THEN 400 P] | i a A,155 21:WAIT TIME 2:NEXT A: DRAW үр ae E we SC 
419 IF Z=ASC("A") THEN 19000:REM NAND He ыы ү 218,81 219,155 21 EH GE 
420 IF Z=ASC("0") THEN 11999: REM NOR 5075 FOR А-210 TO 24@:DOT A,81 21:DOT A, 
425 IF Z=ASC("T") THEN 3990: REM NOT 82 2i:WAIT TIME 2:NEXT A:DRAW 240, u uit 
430 BOTO 409 81 249,155 21 2-74 — 
poe Se 5080 FOR 4-249 TO 270:D0T A,154 21:DOT сае | | 
1000 REM AND üi Р ñ 8,155 21:WAIT TIME 2:NEXT A: DRAW = | | 
1995 GOSUB 22000 —— (| ie - 279,81 270,155 21 F | | 
1010 — W$(0.0)-"O 0 O":W$(1.0)-"O 1 Ө": | = || A 5085 FOR A=279 TO 300:D0T A,B1 21:DOT A, لل‎ | | | 
W$(2.0)-"1 Ө Ọ":W$(3.0)="1 1 1" ! Ben NS 82 21:WAIT TIME 2:NEXT A | | | | 
1020 NAAMS="AND":GOSUB 24000 mel : 5089 pF=DFO SE | 
1959 SYMBS-CHR$(0):60SUB 25900 |: 8090 GOSUB 21000:60SUB 23006: DF=DFO dd 
1940  GOSUR 24000: GOSUB 28000: GOSUB 5099 SOTO 196:REM TERUG NAAR MENU Bier 
27009: GOSUB 21099: GUSUB 23008 
1978 GOTO 1@0:REM TERUG NAAR MENU 8000 REM SCHMITTRIGGER 
!  &005  GOSUB 22000 
2000 REM DR 6010  NAAMS="SCHMITT-TRIGGER" 
2005  GOSUB 22000 4020 X1250:Y1-200: DF=1:CC=22s T$=NAAMS: 
2010 — W£(0.0)-"O 9 O":W$(1.0)-"O 1 1": GOSUB 20000 ч e f ^ 
W$(2.0)-"1 @ 1":W$(3.0)="1 1 1° 6030 DF=3: SYMB$=CHR$(9):GOSUB 25900 | [^ | : | | | [^ 
2020 — NAAMS-"OR":GOSUB 24000 ( [5 6040 DRAN 150,80 150,189 23:DRAW 150,80 bendes GRAY-CDE 
2030 — SYMBS-CHRS$(1):GO0SUB 25000 Ог 300,80 23 
2040 — GÜSUB 26000:G0SUB 28006: GOSUB аты 6045  DF=8 азай BIH’ GRAY ü вара 
27900: GOSUB 21000:GOSUB 23000 6850  X1-110:Y1-170:T$-"U uit":80SUB eant 1 taai 
2050 GOTO 100:REM TERUG NAAR MENU 20000 вата 2 80811 
) i 6960 X17270:Y1-63:T$-"U in":GOSUB 20000 g d ud заара 
3000 ` REM NOT/INVERTER Н - 6070 FOR А=151 TO 240:DOT 4,82 22:DOT A, 0190 1HUULEAAM 4 віла 
3095  GOSUB 22900 — 4 P Гаа 85 22:WAIT TIME 2:NEXT А bowl eedt аа 
3010 . W$(0.0)z"O 1":W$(1.0)="1 0" mob E ms vom - 6080 DRAW 240,82 240,165 21 Egger ^ m 
5920 NAAMS="NOT": GOSUB 24009 pa | | I | 1 1 6990 FOR 4-240 TO 590:00Т А, 155 22: DOT SECH Ў = A | 2 Š 
3030  SPATIE=15: SYMBS=CHRS (11) +СНЕФ (3) : B | 1 | oi | иии TIME 2: МЕХТ А: WAIT : 222 р ак 
GOSUB 25000: SPATIE=8 are [© ME 2@ ай E Š 
3035  GOSUB 29990: GOSUB 21000:GDSUB 25000 ila A 6189 FOR A=300 TO 219 STEP -1:DOT A,145 1881 э 1181 
3450 GOTO 199:REM TERUG NAAR MENU SE e Е 23:D0T 8,156 23:WAIT TIME 2:NEXT А Late 18 1 111 
5200 КАШ 219,82 210,166 23 1 811 111 1118 
4000 НЕМ EXOR 6308 FOR 8-210 TO 151 STEP -1:DOT 4,82 118g if 1810 
4095 BOSUB 22000 23:DOT А,85 23:WAIT TIME 2:NEXT А t1151 12 1811 
4919 МФ (0.0)="0 @ @";W$(1.0)="0 1 1": 6990 GOSUB 21099: GOSUB 25000 11168 i4 ій ü d 
Wb(2.0)-"1 9 1'":W$(3.0)-"1 1 @" 5795 GOTO 10@:REM TERUG NAAR MENU 1111 15 i888 
4020  NAAMS-"EXOR":GÜSUB 24000 
4030  SYMB$=CHR$ (2) :GOSUB 25000 7000 REM DECODER 
4949  GOSUB 26000:GO0SUB 28000: GOSUB 7005 SOSUB 22000 
27000: GOSUB 21999: 50808 25000 7919 NAAMS-"DECODER":BOSUB 24000 
4050 GOTO 100:REM TERUG NAAR MENU 70209 SYMBS-CHR$(10):60SUB 25000 
7950 BOSUB 21000 E | г” 
500 6 REM KLOKGENERATOR ed esp me 7640 MODE ó - | | [T 
5016  GOSUB 22000 | ak ы — Í | | i 2998 X1=50:Y1=220:T$="DECODER":SDSUB 
5020 DFÜ=DF:DF=1 бо ر‎ : š к 30 RE 20000 
5030 SPATIE=6: NAAMS="GENERATOR" : GOSUB 7060 DRAW 0,211 XMAX,211 23:SPATIE-7:DF- 
24000: SPATIE-8 11 | 9 = I EM 
5040 DF-DFO:SYMBS-CHR$(13):GDSUB 25000 =| 7079 Yi-1:Y1-213:T$-"DC BA Em È | [| | | 
5042 Пегі анас so nam D BRAY-CODE":GÜSUB 20900 | | kee eed... ші. La. La 
5045 DRAW 150,80 150,180 22:DRAW 150,80 | | | ] | | , 7999 wste.or="0 8 9 @ BIN/GRAY | 
390,80 22 n | | | | | | ! 09 90 6 0 O":W$(1.0)-"O ° 9 1 -> X | — p 
5050 X1=13@: Y1=170: T$="U":GOSUB 20000 | | | | | | 1 9081 ic F.L a | | 
5055  X1=290:Y1=560:T$="T":GDSUB 20000 | | | | MEE 7190  W$(2.8)="0 @ ie al el F<. L... Jee 
5050 DRAW 145,155 150,155 22:DF=0:X1= SCC | | i i | 2 99 1 1":W$G.0)-"0 0 1 1 x 
130: Y1-153:15-"5V":GDSUB 20000 DRM Бәлен PES. Es 3 eere | ur) 
5065 FOR A=151 TO 180:D0T А,81 Z21:DOT A, T 7119  W$(4.0)="0 1 00 INVULRAAM E ES SE 
82 21:WAIT TIME 2:NEXT A:DRAW 180, 4 @ 1 1 9":H$(5.0)-"O 1 Ө 1 des 
B1 180,155 21 --------- 5 @11 1" MC ME исин 
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7128 


7130 


7149 


7150 


7168 


7165 


7179 


7180 


7190 


7200 


7219 


7220 


7230 


7240 


7245 


7259 


7255 


7269 


9900 
9005 
9010 
9015 


9020 


9945 
9950 
90533 
9069 
9979 
9880 
7090 


Wd$(5.0)-"0 1 10 а 
8 9191%:607.0 0 1 1 1 
7 61090" 
W$(8.0)="1000 à 1 3 2 
в 119 @":W#(9.0)="1 © 0 1 C4 
5 7 6 9 1191" 
W$(19.0)-"1 0 1 0 12 15 15 14 
19 1 1 1 1":W#(11.9)="1 0 1 1 
в 9 H 10 D. H 1119" 
W$(12.0)-"1 1 0 0 
12 1 0 1 0":4$(13.0)2"1 1 0 1 
B 13 1 0 1» 1" 
W$(14.0)-"1 1 10 
14 1 0 © 1":W$(15.0)—"1 1 1 1 
15 1009" 
Үі-20В 
FOR X-0 TO 15:Y1-Y1-13:T$-4$ (X): 
GOSUB 20000:NEXT X 
DRAW 55,0 55,211 23:DRAW 189,0 189, 
211 23 
DRAW 75,48 156,48 21:DRAW 75,48 75, 
101 21 
DRAW 75,61 156,61 21:DRAW 95,48 95, 
101 21 
DRAW 75,75 156,75 21:DRAW 115,48 
115,101 21 
DRAW 75,88 155,88 21:DRAW 135,48 
135,101 21 
DRAW 75,101 155,101 21:DRAW 156,48 
156,101 21 
DRAW 95,110 135,110 21:DRAW 115,40 
155,40 21 
DRAW 95,109 135,109 21:DRAW 115,39 
155,39 21 
DRAW. 71,61 71,88 21:DRAW 150,48 


160,75 21 

FILL 76,49 155,100 19: NAAM$= 
"DECODER" 

BOSUB 21020:G08UB 23099: SPATIE=8: 
SOTO 190 


REM TELLER 

GOSUB 22000 

NAAMS-"TELLER":GOSUB 24000 
SPATIE-15: SYMBS=CHRS (6) +CHRS C7) 3 
BÜSUB 25000: SPATIE=8 

DRAW 20,120 50,120 25:DRAW 20, 145 
50,145 23 

DRAW 127,83 127,100 23:DRAW 150,83 
160,100 25 

DRAW 190,40 190,190 23:DROW 190,40 
320,40 23 

DRAW 190,90 320,90 23:DRAW 190,140 
329,140 23 

DFO=DF: DF=0 

Xi-55:Y1-102: TS="C":G0SUB 20000 
X1=117: V1=83: T$="A":GO0SUB 20000 
X1-150: T$-"B":GÜSUB 20000 
X1-180:Y1-150: Tb-"C":GÜSUB 20000 
Y1-100:T$-"A":GOSUB 20000 
Y1=50:TS="B":GOSUB 20000 








9199 


9119 


9120 
9150 


9149 


9150 


9169 


9179 


9189 
9199 


9290 


9219 


FOR A=i91 TD 204:DOT 8,141 21:DDT 
A,91 21:DOT A,41 21 

DOT 8,142 21:DOT А,92 21:DDT 4,42 
Zi: WAIT TIME 2:NEXT A 

DRAW 204,141 204,165 21 

FOR 4-204 TD 218:D0T A,165 21:D0T 
8,91 21:D0T 8,41 21 

DOT 4,166 21:DOT 8,92 21:DOT A,42 
2i:WAIT TIME 2:NEXT А 

DRAW 218,141 218,166 21:DRAW 218, 
91 218,116 21 

FOR 4-218 TO 232:D0T A,141 21:DOT 
8,115 21:DOT A,41 21 

DOT 8,142 21:DDT 8,116 21:DOT 4,42 
21:WAIT TIME 2:NEXT A 

DRAW 232,141 232,166 21 

FOR 4-232 TO 246:D0T A, 165 21:D0T 
5,115 21:DOT А,41 21 

DOT А, 166 21:DOT 8,116 21:DDT 4,42 
21:WAIT TIME 2:МЕХТ A 

DRAW 246,141 246,166 21:DRAW 246, 
91 245,115 Zi: DRAW 246,41 246,66 21 
FOR 4-246 TO 260:DOT A,141 21:DOT 
8,91 21:DOT A,45 21 

DOT 8,142 21:DOT 4,92 21:DOT D 6b 
21:HA1T TIME 2:NEXT A 

DRAW 250,141 260,166 21 

FOR 4-250 TO 274:DOT 8,165 21:DOT 
8,91 21:DOT A,65 21 

DOT 8,156 21:D0T 8,92 21:DOT 4,66 
21:WAIT TIME 2:NEXT A 

DRAW 274,141 274,166 21:DRAW 274, 
91 274,116 21 

FOR 4-274 TO 288:D0T 8,141 21:DOT 


8,115 21:DOT 8,65 21 

рот 8,142 21:D0T 8,118 21:DOT 4,56 
21:WAIT TIME 2:NEXT A 

DRAW 288,141 288,166 21 

FOR 4-288 TO 302:DOT 8,165 21:DOT 
8,115 21:D0T A,65 21 

DOT A,166 21:D0T 8,115 21:D0T A,66 
21:WAIT TIME 2:МЕХТ А 

DRAW 302,141 302,156 21:DRAW 302, 
91 302,116 21:DRAW 302,41 302,66 21 
FOR A=302 TO 32@:DOT А, 141 21:DOT 
8,91 21:D0T A,41 21 

DOT 8,142 21:DUT A,92 21:DOT A,42 
21:WAIT TIME 2:NEXT А 

GOSUB 21000: BOSUE 23000 

GOTO 100 


REM NAND 

GOSUB 22060 

wW$(06.0)-"O O 1":0%(1.0)="0 1 1": 
W$(2.0)-"1 © 1":W$(.0)-"1 1 0" 
NAAMS="MAND":GOSUB 24000 
SPATIE=15: SYMBS=CHRS (9) CHRE C3) : 
GOSUB 25900: SPATIE=8 

GOSUB 26999: GOSUB 28000: GOSUB 
27980: DOUD 210990:60SUB 23999 
GOTO 100:КЕМ TERUG NAAR MENU 
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11986 REM NOR 27000 REM VARIABELEN OP HET SCHERM 
11985  BÜSUB 22000 27095  Xi1-36:Yi-150:DFO-DF:DF-1:T4-"A": 
11010 — W$(0.0)-"O O 1":W$(1.0)="0 1 ө": GOSUE 20000 
W$(2.0)-"1 6 Q":W$(z.8)-"] 1 ө" 27010 — Yl-100: T$-"B":GDSUB 20000 
11020  NAAMS-"NOR":GÜSUB 24006 27915 — X12125:Y1-137:T$-"X":80SUB 20000: 
11030 — SPATIE-15:SYMBS-CHRS (1) +CHRS (3) : DF=DFO: RETURN 
GOSUB 25000: SPATIE=8 
11649 GOSUB 26000:808UB 20000: GOSUB 28000 REM WAARHEIDSTABEL OP HET SCHERM 
27990: BOSUB 21008: GOSUB 25000 28002 DRAW 190,150 285,150 23:DRAW 220, 
11856 GOTO 19@:REM TERUG NAAR MENU 178 220,70 23:DRAW 250,170 250,70 
23 
20000 REM SUBROUTINE FGT 28004  DFO-DF:DF-1i 
76001  C=FCR#40+CC: F=FFa#GO+PF##40+2F 2420+ 28005  X1-200:Y1-150: T$-"B":GDSUB 20000 
VF*#1@+DF 28910  X1-232:T1$-"A":G0SUB 20000 
20002 POKE #2F0,C:POKE #2F1,F 28015  Xi-264:T5-"X":G0SUB 20000 
29003 POKE #2F2,X1 MOD 256:POKE #2F3, 28020 — X1-200:Y1-130:T$-W$ (0. 0) : GOSUB 
X1/256:POKE #2F4,Y1 20000 
20004 POKE #2F5,SPATIE:POKE #2F4, ID 28025  Yi-110:T$-W$(1.0):GOSUB 20000 
29005 САШ М #300, T$: RETURN 28020 Yi=90:TS=W$(2.0):60SUB 20000 
28055 — Y1-70:T$-W$ (3.0) :GOSUB 20000 
21000 REM SPATIEBALK SUBROUT INE 28037  DF-DFO:RETURN 
21095  DFO-DF:CCO-CC 
21008 DRAW 250,3 250,15 22:DRAW 250,15 29000 REM WAARHEIDSTABEL + 
330,15 22 AANSLUITDRADEN (INVERTER) 
21010 DRAW 250,5 550,5 22:DRAW 339,3 550, 29002 DRAW 190,150 255,150 2X:DRAW 220, 
15 22 170 220,109 23 
21015  DF-0:X1-251:Y1-5:T$-"SPATIEBALK" : 29005 DFO=DF:DF=1 
GOSUB 20009 29010 — X1-200:Y1-150:T$-"A":BOSUB 20000 
21020  Z-BETC:IF Z=9 THEN RESTORE: GOSUB 29020  Xi-232:T$-"A":BOSUB 20000: DRAW 234, 
50000:G0SUB 30000: GOTO 21950 157 242,157 23 
21030 IF -2<>32 THEN 21020 29030  Y1-200:Y1-130:T$-W$ (0. 0) : GOSUB 
21959  DF-DFD:CC-CCO NS 
21050 RETURN 29040  Yi-110:T$-W$(1.0):GÜSUB 20000 
29060 DRAW 20,150 50,130 23:DRAW 127,150 
22000 REM BEELD SCHOONMAKEN + VARIABELEN 140,130 23 
DEFINIEREN VOOR NIEUWE Blz. 29079 X1=30:Y1=137; T*$="ñ";GUSUB 20000 
22005 MODE & 29080  X1-125:T9-"A":GDSUB 20000: DRAW 127, 
22010 RETURN 154 135,154 23:REM A NIET 
E 29090 DF=DF0: RETURN 
23009 REM BEELD SCHOONMAKEN + VARIABELEN 
DEFINIEREN VOOR MENU 30000 REM SCREENCOPY 
2365 MODE ó 30005 IF NAAMS<>"DECODER" THEN FILL 250, 
23006 DF=0: RETURN 3 330,15 20 
30000 IF NAAMS-"DECODER" THEN FILL 76,49 
24990 REM NAAM VAN DE BLZ. 155,160 18 
24005 REM GOSUB 22000: КЕМ BEELD 56008 POKE #131,0:COLORG 8 9 9 @ 
— ue Pr 2245 36010 CALLM #5400 
2 —-35:X1-230:Y1-290: ClC=22: T$-NAAMS : 50015 POKE 4151,1 
GOSUB 20000: RETURN 30020 RETURN 
60000 FOR A=#5400 TD #5482 
25009 REM SYMBOOL OP HET SCHERM 50001 READ B 
25905 DF=3: X1=50: Y1=109: CC-23: T$-SYMBS: 50002 PDKE А,В 
BOSUB 20000: RETURN 50005 NEXT A:RETURN 
P - 50004 тата #C5, #DS, HES, S FS, HFS, 43A, #40, 
26000 НЕМ 3 AANSLUITDRADEN #00, HFS, SEG, S3F, #ҒА, #80, 832, #40, 
26895 DRAW 20,145 50,145 23:DRAW 20,120 #00, #32, #06 
50,120 23 60005 DATA #FD, #FB, #21, #09, #00, HAC, HCD, 
26019 IF NAAMS="NAND" OR NAAMS-"NOR" #84, REB, #3E, 4F7, #00, SEG, AER 
THEN DRAW 127,150 140,130 23:RETURN 60886 DATA #C6, #07, HF, #13, #05, #CS, 83E, 
25029 DRAW 110,150 149,130 23:RETURN HIB, #CD, 897, #54, #3E, HIE, #CD, #97, 
#54, SE, HOO CONT P.9 
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19 REM 
CICICICILICICICICICICICICICACICI 172 1 DRAW X+1,Y1 X#1,V2 C:Y2=Y2+YD: 
CICICICICILICALI 1. MEXE 

11 REM [1 STERBLOKKEN 174 1 DRAW Х-5,Ү1 X+5,Y1 C 

T 176 1 YY=YY+3sIF J=3 THEN YY-YY-6 

12 REM [J 178 1 XXeXXe18:1F Jel THEN ХХ-ХХ-30 

уйа "84 [1 179 МЕХТ:БОТО 150 

13 REM 209 IF XX=99 BOTO 230 
CILILICICICILILICICICICICICILAL 219 GOSUB 220:WAIT TIME 25:60T0 150 
CILICILILICICILI 236 W=W+1:ON ie(04 MOD 3) БОТО 221, 

5e CLEAR 256:CDLORT 5 0 0 O:MODE 9: 222,223 
PRINT CHR$ (12) 221 COLORG 5 9 9 12:G0TD 225 

69 COLORG 5 @ 9 12:MODE & 222 COLORS 5 9 12 9:80TO0 225 

100 X8-25: Y8720: W-0 223 COLORG 5 12 0 9 

150 READ XX,YY,CC: IF XX255 БОТО 200 225 RETURN 

150 XX=XX+16sC=CO+Z02FOR Әсі TO 4 230 V!=45.0 

167 1 X=XS+XX#&: YYSeYY418 252 GOSUB 220:U!-V!40. 9: HAIT TIME 

164 1 ТЕ (XX MOD Z)*(YY MOD 20041 V':IF V!>3 GOTO 232 

1 THEN GOTO 168 240 БОТО 240 

166 1 YieY-irY2zY1e15:YD--3:80T0 170 300 DATA 10,2,1,19,3,5,9,2,5,9,2, 1, 

158 1 Y2=Y:Y1=Y2+15:YD= 8,2,1,8,3,3,7,3,3,7,2,1,6,2,2, 5, 

170 1 FOR I=@ TO 4:DRAW X-I,Y1 X-I, 3,2,77,9,0 

1 Y2C 
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392 DATA 10,4,1,10,5,3,9,5,3,9, 4, 1, 344 DATA 1,2,0,1,1,0,2,1,0,3,1,0,4, 
8,4,1,8,5,3,7, 5, 5, 7,4,1,8, 4,2,6, 1,0,5,1,2, 12,1,0,13,1,0 
| 5,2 345 DATA 8,3,1,8,2,3,9,2,3,9,3, 1,10, 
503 DATA 10,0,1,10,1,5,9,1,3,9,0,1, 3,1,10,2,3,11,2,2,11,3,1,12,2,1 
8,9,1,8,1,3, 7, 1, s, 7, °, 1, 5, 0, 2, 6, 347 DATA 4,5,0,7,5,0,8,5,0,9,5,0, 10, 
1,2,77,9, 5,0,77,0,0 
304 DATA 15,5,1,15,4,3,14,4,3,14,5, 359 DATA 3,4,0,3,3,3,4,5,3,4,4,0,5, 
1,13,3,1,13,4,3,12,4,3,12,3,1, 4,2,5,3,2,5, 5,3, 7,4,2,7,3,2 
11,3,2,11,4,2 352 DATA 12,4,0,12,3,3,13,3,3, 13,4, 
306 DATA 19,1,1,15,2,3,14,2,3, 14,1, 9,14,4,0,14,3,3,15,3,0,15,4,0 
1,13,1,1,13,2,3,12,2,3,12,1,1, 354 DATA 5,1,1,5,0,0,7,0,0,8,0,0,9, 
11,1,2,11,2,2 9,0,10,0,0,77,0,0 
307 DATA 3,3,1,5,4,3,4,4,3,4,3, 1,3, 396 DATA 5,1,9,6,1,0,7,4,3,7,3,3,8, 
3,1,3,4,3,2,4, 5,2, 5, 1, 1, s, > 1,4, 3,3,9,3,5,10,5,5,10,4,0,11,4,0, 
11,3,3,77,0,0 
308 DATA 5,1,1,5,2,3,4,2,3,4,1,1,3, 358 DATA 5,4,0,6,4,0,7,4,0,8,4,0,9, 
1,1,3,2,3,2,2,3,2,1,1,1,1,2,1,2, 4,9, 7,1,0,7,2,1,9,2,1,8,1,9,9, 
2,77,0,0 1,9,9,2,1 
319 DATA 18,2,2,18,3,2,0,2,2,0,5,2 359 DATA 10,2,1,10,1,0,11,1,9, 11,2 
311 DATA 5,0,5, 4,0,3,3,0,3,2,0, 5, 11, 1,77,0,0 T 
si 2,5,12,2,5,15,0,2,14,0,2 sd 360 DATA 2,3,0,2,2,0,2,2,0,3,3,0, 4, 
$9959 "59 749.9 5g eg v Б E53 
5,1,1225 1 13,5, 1,14,5,2 5,6, 4,2,@,5, 2,0,5, 5,@,5,з, 2,6,2, 
313 DATA 11,0,1,12,0,1,13,0,1,14,0, 362 DATA 11,3,0,11,2,0,12,2,0, 12,3 
= , 
1,11,5,3,12,5,3,13,5,3,14,5,3, 0,13,3, о, 13, 2,0,14, 2,0,14,5, à 
77,0,0 77,0,0 i 
314 DATA 12,2,2,12,3,2,13,3,3, 13,2, 999 DATA 99,0,0 
1,14,2,1,14,3,3, 15,3, 3, 15,2, 1, 
1b, 2,1, 16, 3,3 
315 DATA 2,4, 2,2,5,2,3, 5,3,3,4,1,4, 
4,1,4,5,3,5,5,3,5,4,1,6,4,1, Z; 5, 
3 
316 DATA 2,0,2,2,1,2,5,1,5,3,0,1,4, z 
9,1,4,1,3,5,1,3,5,0,1,6,0,1,6,1, cont. from pf 
3,77,0,0 
318 DATA 3,1,2,3,2,2,4,1,1,5,1,1,6, 
1,1,6,2,3,7,2,3,7,1,1 | 
319 DATA 4,3,2,4,2,2,5,2,1,5,3,3,6, 60007 АТА #CD, #97, #54, #3E, #1B, #CD, #97, 
3,3,6,2,1,7,2,1,11,2,1, 11,5,5, #54, HIE, #41, BCD, #97, #54, HIE 
12,3,3,12,2,1 50008 DATA #08, #CD, #97, #54, «3E, S0D, ICD, 
320 DATA 3,3,2,3,4,2,4,4,5,5,4,5,6, #97, #54, EE, HIB, CD, #97, #54, HIE, 
4,3,7,4,3 #48, SCD, #97 
321 DATA 11,1,1,10,1,1,9,1,1,8,1, 1, 50009 DATA #54, #7B, ECD, #97, 854, 87A, HCD, 
2,2,2,2,3,2,8,4,3,9,4, 3, 10,4, 3, #97, #54, 43E, #01, #F5, HCD, #84 
11,4,3,77,0,0 60010 DATA #EB, #D1, #DA, #78, #54, #FE, #08, 
330 DATA 8,3,2,8,2,2,7,2,5,7,3, 1,6, #74, 817, #OD, 402, HOD, 454,100, HOG, 
3,1,6,2,3,5,2,3,5,3, 1,4, 5,1, 4,2, ECD, #97, #54 
3 60029 DATA #C1,#C5, #23, #C3, HSB, 454,801, 
331 DATA 2,4,3,2,5,0,5,5,0,4,5,0,5, #3E, HOA, HCD, 497, #54, 479, #06 
5,0,6,5,2,0,2,0,0,3,0 60030 DATA #08, #4F, 421, #00, #00, #D1, 802 
332 DATA 2,1,1,2,0,0,3,0,0,4,0,0,3, 824,854, 8E 1, AFS, 832, 840, 800, #32, 
@,0,5,9,2,11,9,0,12, 9,9, 13, 9,9, #96, HFD, «FB 
14,9,0 68948 DATA #F1, HEL, #D1,#C1,#09, #5, HSE, 
335 DATA 16,2,0,16,3,0,15,2,1, 15,2, #01, 85D, BCZ, #90, 854, 435, #00 
3,14,2,3,14,3,1,13,2, 1, 12,2, 3 50050 DATA #FD, #EG, #08, ICA, BIE, #54, EIA, 
335 DATA 11,5,0,12,5,0,13,5,0,14,5, #03, HPF, HES, #10, HCA, HAG, HS4, HFL, 
9,77,9,0 %52,406,%ҒЕ,%С9 
340 DATA 1,3,0,1,4,0,2,4,0,3, 1, 1,3, 
2,1,4,2,1,5,2,1,6,2,1,7,2,2,7,1, 
2,6,1,2 
342 DATA 15,2,1,14,2,1,14,1,0,15,1, 
9,15,2,0 
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PROGRAMMING THE DAI IN MACHINE AND ASSEMBLY LANGUAGES 
by C W Read 


Part 4 — CHANGING MODES, COLOURS & BITS 


The DAI’s ROM routines for setting or changing screen MODES and colours 
can be used in machine language programmes. The routines, like those for 
the editing facility, are called by RST 5 (op code EF) instructions: RST 
5 Data 18 for changing mode, RST 5 Data & for text colours, and RST 5 
Data iB for graphics colours. À precondition for the mode change 
instruction is that the requisite mode code (опе from the list below) 
should be in the accumulator. 


HODE Code MODE Code MODE Code 
9 EF 3 әй 5 38 
1 Ge 3A өз за оз 
in o1 4 BS & да 
2 әз 44 o7 5А op 
2A өз 


Example: To change screen to MODE ФА 


Source Object code Comment 

MVI а овн 3E op sLoad #ƏB into accumulator 

RST 5 EF 

DB 18H 18 sChange to new mode and return for 
... s next instruction 


The precondition for both colour instructions is that the HL register 
pair must be pointing at a list containing the four colours: the RST 
routine will step HL to get each colour in turn. The colours (in hex 
form) are stored as labelled data in the programme, thus: 


COLORI DB 
COLOR? DB 


sColours 8,0,11,1 
sColours 7,1,12,15 


98H, 98H, EH, GIH 
97H, 91H, OCH, AFH 


Then the following instructions can go at the beginning of your 
programme, for setting text colours, &/or at a later position for 
changing colours:- 


Source Dbject code Comment 
LXI H COLORI 21 xx ux sLoad HL with address of colour data 
RST 5 EF 
DB 28H 36 iload colour registers, change to new 
Wie s colours & return for next instrn. 


The same method is used to set graphics colours but RST data is then iB. 


The possible use of an alternative cursor symbol for the editor of the 
file writer programme was mentioned in Part 3. With text colours set as 
above the alternative symbol can now be a coloured block. Memory 
addresses 0074, 6075 are the Cursor Type byte and the Cusor Information 
byte respectively. The normal horizontal line symbol has ASCII code #5F 
in the information byte. A different ASCII character code there will 
provide an alternative symbol. For example, #45 will produce an E or SFF 
a block. To colour the block the cursor type byte has to be changed from 
%1 to 68. The third colour register provides the colour. Here is how to 
do it (subroutine labelled EdCur) and how to restore it to normal again 
‘labelled NmiCur). Insert both subroutines at the end of your source 
code file, immediately before the END statement. 


sCHANGE CURSOR SYMBOL FOR EDITOR: 


EdCur MVI А ОРЕН sLoad ñ with #FF, ASCII code for block symbol, 
STA 75H $ put it in cursor information byte. 
XRñ ñ š Zero the accumulator 
STA 74H iStore 6 from accumulator in cursor type byte 
RET sKeturn to main programme 


3 RESTORE NORMAL CURSOR SYMBOL: 
NelCur MVI à SFH ASCII for horizontal line symbol, 


STA 75H з put it in cursor information byte. 

MVI A ін Put 1 in cursor type to alternate cursor 
STA 74H % symbol with character, as normal 

RET 


Insert а call to the first subroutine at the start of the editor 
initialisation routine, and a call to the second at the start of the 
BREAK routine thus: 
InitEd CALL EdCur BREAK CALL Nml Cur 

LHLD BufSt ... etc LH D @64H ... etc 


We will now look at the Rotate group of instructions that move bits in 
the accumulator right or lefts rotate, because a bit moved off one end 
of the byte rotates around an imaginary icop to enter the other end. 
Thus no bits are actually lost. The instructions, with their op codes, 
are: 

RAR Rotate Accumulator Right (1F), RRC Rotate Right without Carry (@F) 
RAL Rotate Accumulator Left (17), RLC Rotate Left without Carry — (07) 
Each instruction moves all the bits in register A one step to the right 
or left. The Carry works differently according to the type of rotate 
called: RAR and RAL actually rotate 9 bits, ie: the byte plus the Carry 
flag bit, so that a bit moved out of the byte at either end enters the 
carry bit, displacing the previous carry to the the other end of the 
byte, thus: 


Carry Byte in accumulator 
Present state i Gool @116 
After one RAL o 9919 1101 
After a 2па RAL ә 6101 1916 


RRC and RLC only rotate 8 bits, hence "without Carry". Now however the 
Carry flag is used to record the status of the bit moved out of one end 
of the byte and into the others if that bit is 1 the Carry is seti if 
the bit is @ Carry is not set: 


Carry Byte 
Present state e @161 6116 
After one RLC e 1910 1109 
After a 2nd RLC 1 0101 1001 


Ali odd numbers have 1 in the least significant bits therefore RAR and 
RRC can be used to test if the value in the accumulator is odd or even. 
One РАН will put the LSB in the Carry bit. Alternatively, one RRC will 
rotate the LSB into the МЫН and the Carry bit will adopt the status of 
the bit rotated. Thus either method will set the carry flag if the 
accumulator contained an odd value. If you glance back to to the list af 
Mode codes at the beginning of this article you will notice that the 
code for MODE @ and every split mode is an odd number. When the DAIS 
screen driving package needs to know if the screen, or part of it, is in 
a text mode, it loads the stored mode code into the accumulator and uses 
RRC {or sometimes RAR) to find if the code is an odd number. There is 
also an occasion when the carry is deliberately set (made 1) and rotated 
into the accumulator to change the mode code from even to odd. It is 
used when a graphics screen has to be changed to split-mode for 
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displaying an error message. This extract from the ROM routine shows how 
neatly it is dane: 


LDA @@9DH sLoad accumulator with mode code stored at #0@90 


RRC sRotate puts status of LSB in carry. Is code odd? 
dc ABORT sYes, current mode is a text mode 

STC Мо, its a graphics mode. Set the carry bit to i 
RAL sRotate back to move the carry into the LSB, thus 


changing the code in accumulator to odd. for 
split mode. eg: existing MODE 6 becomes MODE 64. 
sChange to split mode and store new code at Soot 


"av ap 


CALL CHANGE 
tc 


fu 


That STC instruction is new. It means Set The Carry flags the op code is 
37. It simply makes the carry bit 1. There is no ‘unsetting’ instruction 
to make the carry bit © although СМС, Complement the Carry flag (op code 
ЗЕ) will do that if the carry has been previously set. Alternatively all 
the instructions in the AND, OR and Exclusive DR groups put a zero in 
the carry flag. 


This next routine uses a Rotate instruction. The file writing routines, 
MEM and EDIT, produced in Fart 3, allow keyboard generated ASCII coded 
characters and controls like TAB and Carriage Return to be typed into 
the file. Sometimes however non-ASCII values are needed as control codes 
for printers or ta put the f£ sign on the screen. BASIC uses the 
expression  CHR$. eg: the £ sign can be produced by either PRINT 
CHRS (27) or PRINT CHR$(#1B). How can that be programmed in assembler? 

If iB is typed the result from the keyboard is two ASCII coded bytes, 
#31 representing 1 and #42 representing the В. Therefore the ASCII 
coding has to be removed and the two bytes compressed into one byte to 
obtain the required #1Н„ Here is what happens, shown with each byte 
split into two half-bytes (or nibbles) of 4 bits: : 


ist byte 2nd byte 

Figure or letter required i B 
Equivalent ASCII code from keyboard, #31 #42 
and expressed as Binary Coded Decimal өдіс: өзді 6196 әді 
Subtract #36 to remove ASCII coding - @@11 ород - әдіп ордо 
Results (decimals 1 and 12) = 0000 Gool = Gool HALA 
1f 59 it will be #ñ to #F, subtract 7 жолы - 6906 0111 
Results in binary and = ообо o001 = 6000 1011 
equivalent in hexadecimal ei eB 


We now have the required values but they are still in two bytes. 
Take the 1st byte HOGG O001 (#01) 
Move left 4 steps to get gaai 6000 (#10) 
Now add the 2nd byte + оодо 1011 (HOB) 
Result, one byte $001 1011 (#1B) 


Although the above example used #15 any other valid hex byte may be 
needed. The routine should therefore validate the characters from the 
keyboard to ensure that each is in the hex range "0" to "EI, rejecting 
all others. Compare instructions can be used to validate a range of 
values. They set the carry flag if the compare operand is greater than 
the value in the accumulator. Thus CPI ^6" would check the bottom of the 
range and CPI "Gr (top of range+1) would ensure that anything greater 
than F was rejected. 


The DAI^s editor sees an ӨӨ byte as end-of-text marker so 09 must also 
be treated as invalid. It is easier to reject it after conversion, when 
it is one byte, than when it comes from the keyboard as two #595. 


Here then is the routine, labelled HEXCHi, which takes two characters 
from the keyboard, validates them, converts them to one hex byte and 
puts that in the text buffer and on screen. Register C is used to count 
the acceptable entries: register D to hold the first converted digit 
while the second is being converted. If you wish to use the facility in 
the file writing programme it can be inserted at the end of the source 
programme, before the END line. 


HEXCHi MVI C 2H 5 2 characters expected from keyboard 
HEXCHS CALL GETC sGet character from keyboard 

Jc BREAK 51+ BREAK key pressed 

dz HEXCHZ sIf no key pressed 

CPI зен sASCII ө? ) Verify that 

JC HEXEND Abort ) characters typed 

CPI 47H ASCII G? ) are in the range 

JNC HEXEND Бок ) "or to "E" 

CFI зан sIs it ASCII @ to 9? 

Jc НЕХСНЗ sYes, skip next instruction 

SUI ZH sNo, it is an alpha character. Deduct 7 
HEXCH3 SUI Zen sDeduct 50 to convert fram ASCII to Hex 

DCR C sRecord 1 hex digit received 

JZ HEXCH4 Sit register C=@ that was Znd hex digit 

RLC sRotate 4 times to move 1st hex 

RLC s digit from the low nibble into 

RLC s the high nibble of the byte. 

RLC 

MOV D. ñ sSave the result in register D. 

JMP HEXCHZ sNow get 2nd character 


HEXCH4 ADD D sist digit is in D (high nible),2nd digit in 
së (low nibble). Adding them leaves both іп 


1 byte in ñ. If both digits are 9, adding 


JZ HEXEND 3 them will set the zero flag, indicating 
š that the result is ӨӨ, so abort. 
JMF INSERT Put result (2 Hex digits) in edit buffer. 
HEXEND JMP KEYBDS збо back to keyboard for next command 


The keyboard section of the main programme must recognise when the hex 
digits facility is needed. Use of a key that is rarely wanted for text 
is one possibility: the key for the ~ symbol (ASCII 7E) may do. Should 
it later be necessary to print a * the HEXCHI routine can be used to 
enter the hex digits 7E which will put * on the screen and in the 
buffer. Substitute another key if you wish. Insert the following two 
lines in KEYRDS section, between JZ KEYBDS and CALL INSERT: 

CPI 7EH 515 it ~ key? 

JZ HEXCH1 ‘To insert 2 hex characters 


Rotate commands are again used when two hex digits in a byte have to be 
separated and ASCII-coded for printing. That process also uses a Logical 
AND instruction for clearing half a byte. 
There are six Logical instructions: 
ANI (ор code Еб) which ANDs the Immediate data with the accumulator. 
ANA r which ANDs the data in register r with the accumulator. 
ORI {op code F6) and ORA r, corresponding logical OR instructions. 
XRI (ор code EE) and ХКА r, logical EXCLUSIVE OR instructions. 


ANI and ANA are used to zero particular bits in a byte. ORI and ОКА are 
used to set particular bits to i. XRI and XRA are used to complement 
particular bits. The data (either immediate or in register r) is called 
a mask. 

^r? is any register А to L or M (the Memory at address іп HL). 
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Summary: 
Instruction Bit in mask Corresponding bit 
in accumulator 
e 
No change 
No change 
H 


ANA and ANT 
ANA and ANI 
ORA and ORI 
DRA and DRI 
XRA and XRI No change 
ХНА and XRI Complemented 
Sign, parity and zero flags are set in accordance with the result, but 
the carry flag is always made zero as logical commands cannot borrow or 
carry bits. 


кф G = Ф 


Examples: 

Byte in accumulator #38 #97 

as Binary Coded Decimal @@11 1911 ізді 0111 
ANI HOF (mask) 69099 1111 ANI #F@ (mask) 1111 дөөө 
ist result eooo 1011 1991 oooo 
ORI #30 (mask) 9011 oooo ORI #16 (mask) 9001 911% 
2nd result 9011 1911 ізді 0119 
XRI #F@ (mask) 1111 oooo XRA A (mask) 1001 
өзге 

3rd result 1106 1011 9999 ород 


Suppose for example that ап address stored at location EndTxt has to be 
displayed. It is a four character address stored as two bytes, low hyte 
first. It is to be printed the right way around so we will start with 
the second byte, convert it to two bytes, add the ASCII character coding 
and print it. Then repeat the process with the first byte. 


PrtAdr  MVI C 2H 
LXI H EndTxt 


sCounter for 2 bytes 
sAddress of store into HL 


. INX H sStep HL to next address and 

BetByt MOV A,M з move the contents to ñ 

ANI @F OH sDelete bits in low nibble 

RRC sMove the four bits of the 

RRC s high nibble to the cleared 

RRC 5 low nibble. 

RRC 

CALL T&F sTest, make ASCII and print 

MOV ALM sGet same byte in A again 

ANT ФЕН sDelete the high nibble 

CALL T&P sTest and print next digit 

DCX H ‘sStep H back to pick up the low byte 

DCR C Decrement byte counter 

JNZ GetByt sRepeat for next byte 


JMP KEYBDi or wherever appropriate. 


Subroutine to handle alpha digits, make ASCII and print. 
sValue to be tested and coded is already in the accumulator. 
ТЕР ЕРІ OAH 315 result @ to 9 7 


sc ASCI s Yes 
ADI 7H sNo. So it is a letter. Add 7 
ASCI ORI 36H zAdd ASCII coding. (see Note) 
` CALL DUT Print it 
RET 


Note: The ORI 36H instruction could alternatively be ADI ХӘН. 


To be continued. 
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blijven, 










Ві) het thema communicatie hoeft men niet 
noodzakeli jkerwi je te denken aan verbindingen via telefoonli jnen. 

We zullen een communicatieimogeli jkheid beschri jven 
tussen een computer met een RS- poort en een wat sporadisch 
randapparaat, de volledig electronisch bestuurbare 
audiocassetterecorder van Tandberg, de TCCR- 











30 is uitgerust met een 8048 processor, die via 
“С 28-ріпе D-connector kan communiceren. 

Hij accepteert ASCIi-strings die afgesloten dienen te 
worden met «CR» oftewel CHR#(13): bijvoorbeeld "PL'*CCR? staat 
voor het commando 'FLAY', 





De ТГСН-550 ziet er uit als een diplomatenkaffert je 
‘breedte 44,5 cm, hoogte 14,2 cm, diepte 28 Cm), heeft een 
enigszins oplopend bedieningspaneel, waarop onder andere een 
gecombineerde seconden- en minutenteller zichtbaar is, 

De normale functies van een audiocassetterecorder zijn via 
wat klein uitgevallen toetsen bereibaar en er is een RECAP-toets 
voar het terughalen van het laatste geluidsfragment, 


Naast de К5-252 geeft het achterpaneel nog 
verbindingsmogeli jkheden te zien voor een LINE-verbinding met 
radio of tuner/versterker naast een REMOTE CONTROL waarop 
bijvoorbeeld een infrarood- of een voetbesturing (niet 
meegeleverd), maar ook een met relais schakelende 
Cassettecontrolepoort van een computer kan worden aangesloten. 

De LINEverbinding is uiteraard ook geschikt om 
computerprogramma's van tape te laden, waarbij de speaker kan 
worden dichtgedraaid, Dok voor Basicode uiteraard. 

Er is een speaker ingebouwd, maar die is via de 
speakerplug uitschakelbaar, zodat via externe speakers of een 
koptelefoon gewerkt kan worden. 


Tot nog toe klinkt dat allemaal vrij normaal voor een 
audiocassetterecorder, maar het zou geen Tandberg zijn, als er 
niet veel meer te beleven zou zijn. 

Allereerst zijn er wat fluitsignalen beschikbaar, die de 
gebuiker attent maken op zaken zoals bandeinde en 
cassette-inlegfouten, naast signalen die je waarschuwen als je 
geluid wilt opnemen zonder cassette of op een beschermde 
cassette, Comfortabele service van de processor, nietwaar? 


Ik gef al aan dat er een digitale teller op het 
frontpaneel te zien was. Deze telt seconden en minuten en 
schakelt na 59 minuten en 59 seconden weer over ор 00.00, dat is 
pas "real time", 
in beginsel aardig om de werkelijke bandlengte van je cassettes 
sens mee te controleren. (Blijkt aardig te kloppen overigens.) 

Het model dat hier beschreven is, is een mono-uitvoering, 
maar er schijnt oGk een stereoversie te bestaan, 

In dat geval kan er een audiokanaal gebruikt worden voor 
bijvoorbeeld stuurpulsen voor een diaprojector, 
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Zowat elke computer van single-chip tot mainframe moet in 
staat zijn via de RS-poort een halfduplextransmissie te onderhouden 
met de TCCR, zelfs een 20 mA current loop mogelijkheid is 
voorzien. 

De volgende pinnen worden gebruikt: 

1. transmit data pin 2 
2. receive data pin 
5. signal ground. pin 7. 

Om de correcte logische niveaus te bereiken kan het nodig 
zijn voor uw computer meer pinnen te moeten solderen dan dat hier 
staat aangegeven, maar de handleiding is daar duidelijk genoeg 
over. 

Van de fabriek uit is de machine ingesteid op 1200 baud 
bij een karakterlengte van 7 bits en EVEN pariteit. 

Klopt dat niet dat moet ofwel aan de computerkant een 
wijziging plaatsvinden ofwel aan de kant van de TCCR. 

Voor dat laatste is er de PARAMETERmode, die via een 
combinatie van frontpaneeltoetsen bereikt kan worden. 

Je kunt dan de BAUDrates veranderen (150, 300, 600, 1200, 
2400, 4800 en 9600 Bd). Het recorderadres is instelbaar: het is 
mogelijk om 96 recorders te adresseren. 

Tevens is de antwoordtijd van de TCCR instelbaar, wat voor 
sommige communicatieprotocollen wel zinnig kan zijn. 

Het tellervenster geeft dan de betreffende coderingen op 
in bijv. hexadecimalen. 

Er worden in de handleiding voordoende voorbeelden gegeven 
am een en ander voor uw computermerk in te stellen. 

Snapt de TCCR uw instellingen niet, dan genereert hij een 
vraagteken tot verdere stimulering van uw noeste arbeid. 

BBC-gebruikere zijn in het voordeel, want voor hun merk 
wordt in de handleiding een en ander іп soft- en hardware nader 
uitgewerkt, 

De volgende tweelettercommando's zijn in gebruik en kunnen 
vanaf het toetsenbord ingevoerd worden of in de software 
opgenomen worden. Denk aan SCR? of CHR$(13) als afsluiting van 
een stukje tekstfile. * 

De TCCR echaot uw invoer terug naar de computer, om te 
kennen te geven dat het complete commando is omtvangen. 

ST =STOP FL =PLAY RE =RECORD 

WF -WIND FAST RF =REWIND FAST RC САР 

Cu =CUE RV =REVIEW EJ =EJECT 

CC =CLEAR TAPE MH zMOTOR HALT MS =MOTOR START 

COUNTER Dk =DISABLE KEYBRD EK -ENABLE KEYBOARD 

DS «DISABLESOUND ES =ENABLE SOUND RT =READ TAFECOUNTER 

RM =READ MODE FS =PROGRAM SENSOR GT =GOTO bandpositie 

ТО =naar positie SY =synchoniseer HS =HANDSHAKE 

teller 

Deze collectie commando's geeft wel aan, dat je alle 
kanten opkunt met de TCCR, je kunt zelfs software en tekst of 
muziek op dezelfde band hebben staan en naar wens inladen of 
ten gehore brengen. 

Wat voor toepassingsgebieden kent de ТССК? 

| Voor circa anderhalf- tot tweeduizendgulden haalt u een luxe 
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audincassetterecorder in huis die om te beginnen als zodanig te Parameter 

gebruiken is. | ў Number Parameter 
Daarnaast komt dit apparaat goed van pas in | Value 

onderwijssituaties waar op natuurlijke wijze uitgesproken 


menselijke taal of waar muziek (fragmenten) gebruikt moet worden. 

Denk aan door de computer af te nemen diktees, aan uitleg 
bij simulatiesoftware, bepaalde vormen van “interactieve audio’, 

De zakenman die al zijn relaties zijn voordelige 
aanbiedingen wil laten weten, laat via zijn computer en zijn 
auto-dial-modem de clientelen rondbellen, en laat de ingesproken 
mededeling via de TCCR horen, 

Misschien is dit laatste ook een idee voor uw vereniging, 
om bij wanbetalers het geheugen op te frissen, 

Het leren bedienen van de computer met de TCCR kan cok een 





| Р E | Left Right 
toepassingsmogeli jkheid zi in. Hand Hand 
Er zijn misschien een paar nadeeltjes te noemen, namelijk Digit Digit 


° de nverigens uitstekende maar Engelstalige handleiding, het niet 


meeleveren van een microfoon, en het feit, dat je uitsluitend een Parameter Display 
cassette kunt verwijderen als het apparaat staat ingeschakeld. 

inno Broekman 

tel, 02220-2977 








Loading the computer program 


een Program 
3-pin DIN lead 






Commands === 






25-pin 
Interface 
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SPL 91.1 


96, 50 Hz 
%, 60 Hz 
35 watts maximum 
10 — 45°C/50 — 115?F ambient 
(suitable for use in tropics) 
Half track (IEC 574.10) 
Compact cassette 
1-7/8 ips. (4.75 cm/s) 
40 -- 14.000 Hz + 3 dB 
Оча! capstan closed loop 
Microprocessor controlled 
4.01911 electronic counter (“real біте”) 
ASCII-strings terminated by a [CR] 
Half duplex. Baud rates from 150 to 9600 baud 
Sensitivity < 65 mV 
impedance 2 100 kohms 
Sensitivity 0.2 mV/200 ohms 
0.5 V/10 kohms 
1.5 V/B ohms 
B watts RMS in 4 ohms 
13 watts music power 
OO S EO UD LN е 





+ 1% 
0.25% 

0.08% 

58 dB 

8048 

> 75 dB 

13% ths (6 ка) 


' jack. 
247 stereo jack 





RS 232C, 25-pins male de!ta-connector (MIN.D) Minimum configuration (no handshake) 


20 mA Current loop, same connector as RS 232 


Peak weighted record/playback (DIN 45507) 
Message format 


WRMS playback (JIS) 
A-curve RMS 
Communication 

Line, 5-pins DIN 
Microphone, Wi 

Line, 5-pins DIN 
Headphone, 

External Speaker 


= 
5. 
2 
= 


ЕЕ 
v a 
La 8 
SFO 














Power consumption 
Operating temperature 
Track configuration 
Computer interface 


Tape speed 


Speed tolerance 


Speed variation 
Frequency range 
Signal/tape noise 
Motors 

Tape transport 
End stop 

Tape counter 
Microprocessor 
Erasing 

Inputs 

Outputs 
Dimensions 
Weight 


Tape 
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IMPLEM TRANSLATED BY GEORGE CATHCART 1985 


PAGE 1 
TITL "IMPLEM TRANSLATED BY GEORGE CATHCART 1985” 
; /##H## VERSION FOR AUDIO-CASSETTE ONLY жәнне 
š /* USE AS BASE TO MAKE NEW MODI VERSIONS ж/ 
з /* FROM SPL Vi.1 MXX. */ 
š /* DEFAULTS ARE SET AS IN SPL V1.1 М0 */ 
TRUE EDU gH 
FALSE EQU @FFFFH 
CHANGD EQU @H 
SAME ERU OFFFFH 
PARALL EBU ен 
SERIAL EQU @FFFFH 
NOPRIN EQU B@00H 
SAVED EGU ен 
KILLED ЕШ @FFFFH 
PRSENT EQU eH 
NPRSNT EDU OFFFFH 
USED EGU @H 
NTUSED EBU @FFFFH 
5 
DCRFTV EGU 120H Stout vector — DCR 
EFSW EBU 135H $input switch ~ DAT 
DCRTBL EBU 297H $pointer for DCR-command's 
RSP EQU 299H sstack pointer save address 
LOOKUP EBU @CA34H ssearch routine in ROM 
TPRINT EGU @DD94H ізегізі print routine - DAI 
BASNEW ERU ODEBSH scold start BASIC 
HEAPRS  EQU ФПЕСАН swarm start BASIC 
GIFILE EDU OF OCDH Бей number DCR-files 
BAUDRG EQU @FFFSH jbaud rate register TMS 5591 
5 
DCRFT EQU 1BAH Stout variable ~ DCR 
LBLMAX EQU 3180H smaximum size symbol table 
D 
SPL ED 8409H shegin SPL (always xy90H) 
TOPADR EQU 8400H stop symbol table (always xy99H) 
SYMTOP EQU TOPADR) BH ;MS byte top symbol table 
SBTADR EQU TOPADR-2H save address start symbol table 
SRCADR EQU TOPADR-OAH ssave address start source file 
x 
ADROUT EDU SPL+2386H SPL — address print 
COLDST EQU SPL+136H SPL ~ cold start 
DCRCTR EBU SPL+1AA2H ЖЕН — fout control 
DIFTBL EQU SPL+264AH 5SPL - choose new tabel 
DUMMYR EQU SPL+252DH ЗӘРІ. — dummy routine 
SPCOUT EQU SPL+23D3H SPL ~ space print 
STROUT ЕШ SPL+23AAH SPL ~ string print 
WAITSB EGU SPL+17FDH ISPL — wait fort lorfbreakl 
Н 
BDRATE SET есөн sbaud rate set 9690 Bd 
SRCTOP SET SAME stop symbol table 
H adjust : TOPADR 
HIDING SET SAME ssupress code when using Т 
H adjust : hidecodes 
DFWORD SET SAME sdefauit 16-bit notation 
4 adjust : address іп B,D,H оғ 0 
DFBYT SET SANE sdefault 8-bit notation 
š adjust : bytes in b,d,h or o 
FILECH SET SAME sread/write file type (&) 
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SPL V1.1 PAGE 3 IMPLEM TRANSLATED BY GEORGE CATHCART 1985 

















59 š adjust : character (<33H) 
66 RGDEFL SET SAME idefault lines per page 117 DW TOPADR 
ы H adjust : number 118 ORG SPL+1904H 
&2 ; (6 :- continuous list 119 DW SRCADR 
63 TOFILE SET TRUE ireset SPL for back-up 129 ORG SPL*190EH 
64 BASGEB SET SAME jbegin BASIC programma’s 121 DN SBTADR 
45 ; adjust : address 122 ORG SPL*1995H 
bb BASPRG SET KILLED jkeep/destroy BASIC 123 DB SYMTOP 
67 SOUND SET SAME ssound signal 124 ORG SPL+19E7H 
68 H adjust: tone-bytes 125 DW TOPADR 
69 COLORS SET SAME stext colour 126 ORG SPL+1A55H 
76 š adjust : colour-hytes 127 DW SBTADR 
23 PUT өр" 128 ORG SPL+1A39H 
72 WIDTH SET Den swidth (columns) printer 129 DN SBTADR 
73 PUT "H" 139 ORG SPL+1A3FH 
74 TABELS SET SAME stab positions 131 DW SRCADR 
75 3 adjust : table-bytes 132 ORG SPL+1A43H 
78 E (0H forces an end) 133 DW SRCADR 
77 3 /* DISABLE DCR COMMANDS ж/ 134 üRG SPL+1A52H 
78 DCR SET NPRSNT ИИН present/not present 135 DW SBTADR 
| 79 PRINTR SET SERIAL sprinter type 136 ORG SPL+1ASBH 
| Be MAXADR SET SAME imaximum start address 137 DW SBTADR 
| 8l E adjust : address 158 ORG SPL+1A60H 
B u2 MINADR SET SAME jminimum start address 139 DN SRCADR 
85 H adjust : address 149 ORG SPL+1AE2H 
| 84 DEFADR SET SAME ¿default start address 141 DB SYMTOP 
| 85 H adjust : address 142 ORS SPL+1B07H 
| 86 SETPRT SET SAME sSET & EQU when using Т 145 DW TOPADR 
i 87 i adjust : characters 144 ORG SPL+1B6CH 
1 88 ADRPRT SET USED ;show memory address using 8 & i 145 DB БҮМТОР 
i 89 H 146 ORG SPL+1BAGH 
E 90 H 147 DB SYMTOP 
91 IF SRCTOP=CHANGD 148 ORG SPL+1BF6H 
| 92 ORG SPL+143H 149 DW TOPADR 
| 95 DW TOPADR 150 ORG SPL+1C84H 
| 94 ORG SPL+169H 151 DB БҮМТОР 
| 95 DM TOPADR-8H 152 ORG SPL+iF BAH 
| 96 ORG SPL+1AEH 155 DW TOPADR-1H 
97 DW TOPADR 154 ORG SPL+1FD1H 
98 ORG SPL+8ECH 155 DW TOPADR 
99 DB SYMTOP 156 ORG SPL+2532H 
199 ORG SPL+OF 19H 157 DW TOPADR-LBLMAX 
191 DW TOPADR 158 ENDIF 
162 ORG SPL+OF 28H 159 Н 
193 DB SYMTOP 169 IF DEFADR-CHANGD 
| 194 ORG SPL+1134H 161 ORG SPL+249H 
105 DB SYMTOP 142 DW 400H 
195 ORG SPL+1794H 163 ENDIF 
197 DB SYMTOP 164 H 
198 ORG SPL+1833H 165 IF MAXADR=CHANGD 
199 Du SRCADR 166 ORG SPL+234H 
119 ORG SPL*1846H 167 DW TOPADR 
111 ри SBTADR 168 ENDIF 
112 ORG SPL+1853H 169 5 
115 DN SRCADR 179 IF MINADR=CHANGD 
| 114 ORG SPL+i863H 171 ORG SPL422BH 
| 115 DH TOPADR-1H 172 DW 2ECH 
| 116 ORG SPL+18F4H 173 ENDIF 
| 174 H 
| 
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IMPLEM TRANSLATED BY GEORGE CATHCART 1985 


sThis list contains directives recognised only by SPL 
zand are not included in the object code. LST and UNL are 
jnot included here, as they are treated as normal nmemonics. 


SPL V1.1 PAGE 4 

175 $ 

176 

177 

178 

179 i 

189 IF 

181 ORG 
182 CPI 
183 RZ 

184 CPI 
185 RZ 

184 CPI 
187 RZ 
188 CPI 
189 RZ 
199 ЕРІ 
ізі RZ 
192 CPI 
195 RZ 
194 CPI 
195 RZ 
196 CPI 
197 RET 
198 ENDIF 
199 3 

299 IF 

201 ORG 
202 DB 
205 DS 
204 DB 
205 ENDIF 
206 5 

207 ORG 
298 IF 
209 CALL 
210 ELSE 
211 МОР 
212 MOP 
215 NOP 
214 ENDIF 
215 5 
216 IF 
217 ORG 
218 DB 
219 ENDIF 
229 4 
221 IF 
222 ORG 
223 DB 
224 ENDIF 
225 3; 
226 IF 
227 ORG 
228 DB 
229 ORG 
259 DB 
231 ENDIF 
232 5 


HIDING-CHANGD 


SPL+27D3H 

20H SH 

30H scontrol 
40H 3 IF 

49H sELSE 

52H 3 ENDIF 

SBH scall-macro 
54H 3 MACRO 

&DH 3 MEND 


SETPRT=CHANGD 
SPL+13C5H 

40H 

4H 


r=" 


SPL+1F29H 
ADRPRT=USED 
ADROUT 


DFWORD=CHANGD 
SPL+111H 
mm 


DFBYT-CHANGD 
SPL+112H 
zh? 


FILECH=CHANGD 
SPL+184CH 

"e 

SPL-18C35H' 

"a 
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SPL Vi.1 PAGE 5 IMPLEM TRANSLATED BY GEORGE CATHCART 1985 
233 IF BASGEB=CHANGD 
234 ORG SPL+146H 
235 DE EIND 
256 ENDIF 
237 3 
238 IF RBDEFL-CHANGD 
239 PUT "d" 
240 ORG SPL+10EH 
241 DB 58D 3 2 + 58 LINES/PAGE 
242 PUT “he 
243 ENDIF 
244 3 
245 IF TOF ILE=TRUE 
246 ORG SPL+131H 
247 Du COLDST 
248 ENDIF 
249 ; 
250 ORG SPL+152H 
251 IF BASPRG=SAVED 
252 DW HEAPRS 
253 ELSE 
294 DW BASNEN 
255 ENDIF 
836 i 
257 ;To supress signal tone: 1st byte OFFH 
258 IF SOUND=CHANGD 
259 ORG SPL+2A74H 
260 DB AH, OC4H, 9H, OAH, AFH, @FFH 
261 ENDIF 
262  $ 
263 IF COLORS-CHANGD 
264 ORG SPL.+2A62H 
265 DB 8H, 0H, OCH, 9H 
256 ENDIF 
267 i 
268 ORG SPL42500H 
269 PUT "р" 
279 IF WIDTHC78D 
271 DW DUMMYR 
272 DS in 
273 DB 6H 
274 ELSE 
275 DW SPCOUT 
278 DS 1р 
277 DB 6H 
278 ENDIF 
279 PUT "н" 
288  ; 
281 IF TABELS=CHANED 
282 PUT “g” 
283 ORG SPL+29FDH Ву BV COMMAND 
284  TBEDIT DB 8D,17D,32D,0D ; E 
285  TBLIST DB GD, 14D, 23D, 38D, BD ; і: 
286 TBHLST DB 6D,13D,21D,31D,46D,0D sDIVERSE 
287 PUT *h* 
288 ENDIF 
289 1 
296 IF DCR-PRSENT 
DAinamic 34 28 DAICLIC 7 














SPL V1.1 PAGE 6 IMPLEM TRANSLATED BY GEORGE CATHCART 1985 
291 ORG SPL+2821H 
292 DW SPL+2E8CH 
293 ORG SPL+2E8CH 
294 LXI H DERFT 
295 SHL D DCRFTV 
294 LHLD DCRTBL 
297 DCRNWT MVI E 1H 
298 XRA A 
299 STA EFSW 
590 CALL LODKUP 
361 CNC DIFTBL 
302 JNC DERNWT 
593 MOV E‚M 
594 INX H 
395 MOV D.H 
396 LXI H DERCTR 
307 PUSH H 
308 LXI H eH 
599 DAD SP 
310 SHLD RSP 
311 PUSH D 
312 CALL BTFILE 
313 RET 
314 ELSE 
315 ORG SPL42821H 
316 DN SPL+267 1H 
317 ORG SPL+2E8CH 
318 ENDIF 
319 PRIFNC МОР 
326 i 
321 sBelow is an example of a software 
322 sinterface for a parallel printer 
523 IF PRINTR=PARALL 
324 ORG SPL+20E8H 
325 DW PRINIT 
326 ORG SPL+248FH 
327 DW PRINT 
328 ORG PRTFNC 
329 PRINT PUSH PSW 
330 HARDOU LDA 9FEO2H ФРОНТ C BIT 4 IS 'BUSY' SIGNAL 
331 ANI 10H SPRINTER BUSY ? 
332 JNZ HARDOU 3YES — TRY AGAIN 
333 POP PSW ФМО — RESTORE DATA IN A 
334 STA OFEGOH ;STORE IN PORT A (PRINTER) 
335 PUSH H 
335 LXI H @FEGIH sPDRT B 
337 MUI M 70H $ STROBE — BIT 7 LOW 
338 MVI M eren 3 RESET STROBE 
339 PDP H 
549 RET 
341 РНІМІТ LXI H PRTMES Ready? message address 
342 CALL STROUT output to screen 
543 CALL WAITSB wait for С 1 (confirmation! 
544 Н or [break] (stop) 
345 MVI A 88H sMODE 9,A OUT,B OUT,CH IN,CL OUT 
346 STA @FE@SH 8255 CONTROL REGISTER 
347 LXI H 9FEO9H ;PORT A ADDRESS (DATA) 
548 MVI M eH 3RESET 
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SPL Vi.i PAGE 7 IMPLEM TRANSLATED BY GEORGE CATHCART 1985 
349 INX H SPORT В (BIT 7 IS STROBE) 
35e MVI M @FOH 3 RESET STROBE 
351 RET 
352 ENDIF 
555 Н 
554 IF PRINTR-SERIAL 
555 ORG SPLt20EGH 
336 DW INIPRT 
357 ORG SPL+248FH 
358 Dy TPRINT 
339 ORG PRTFNC 
350 INIPRT LXI H PRTMES sprint 'Ready?" 
$ 361 CALL STROUT soutput to screen 
362 CALL WAITSB iwait for confirmation 
565 MVI а BDRATE iget baud rate and store 
364 STA BAUDRG sin the baud rate register 
365 RET 
366 ENDIF 
367 5 
368 IF PRINTR=SERIAL?PRINTR=PARALL 
589 PRIMES DB @DH 
379 DB “Ready?” 
371 DB орн, ӘН 
572 DUMI PUT "н" 
573 EIND SET DUM1 
374 ENDIF 
3738 $ 
376 IF PRINTR"PARALL ! PRINTR"SERIAL 
377 ORG SPL+20EOH 
378 Du HRDERR 
379 ORG SPL+248FH 
389 DW DUMMYR 
381 EIND SET PRTFNC 
382 ENDIF 
383 3 
384 END 
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PAGE 1 -- ава PUISSANCE 5 [104101 ж -- FLST V2.2 
10 REM ##% PUISSANCE 5 (108102 van 
^ Ge 722 50808 9000:REM DUI QU NON 
15 БЕН 725 CURSOR 0,21:808UB 4000:REM CLEAR 
225 238% | E: 726 GOSUB 8000:REM AFFICHAGE 
e REN copied by Di Marco Emmanuel 730 IF R$-"Q" OR R$="o" THEN 770 
18 CLEAR 5000:COLORT 8 0 0 O:MODE O:PRINT CHR$(12); 140 BOSUB 1000:REM PROGRAMME 
18 25253 780 IF Е<20.0 THEN 790 
20 SOSUB 9100:REM MENU 770 GOSUB 2000:REM ADVERSAIRE 
25 GOSUB 100:REM INIT JEU Jen Eren THEN 
: 790 IF F=1.0 THEN PRINT " J'ai gagne en ";:60T0 850 
35 80SUB 600:REM PROLOGUE 
792 IF F=(-1.0) THEN PRINT " Vous avez gagne en ";:60T0 850 
40 80808 700:REM PARTIE e EEN ds 
45 PRINT " Voulez-vous jouer une autre partie (O/N] "j 450 MM S E e apres j 
48 GOSUB 9000:REM QUI QU NON Bes TA mE 
50 IF R$z"0" QR Ré$s"o" THEN 35 d RETURN coups: 
52 CURSOR 0,CURY ET 
SUB 900:REM 
з ЗЕ END Sen HER sexu MA qus 
910 REM aan END tet 
SE REM: AR RR 
100 REM AY A N A BY бө Ar A A A A A бу Му VV бу X j О 
101 КЕМ ann INITIALISATIONS DU JEU жа oe E E 
102 REM KN GE Ë Va iPRI 
120 DIM A(99.0) ,B(99.01,V(21.0),B$(5.0) ,A$(9,01 30 RETURN 
йз g с UE ney VE 
i 1010 REM #44 LE PROGRAMME JOUE zx 
280 NEXT J 1020 REM ANAN б М му A u A A AAA бу бу бу NA A N 
290 FOR J=0.0 TO 4,0 8 EARS 
200 1 READ eut 1030 FOR J=0.0 TO 99,0:В(1) =0,0:МЕХТ J 
31d з 1090 С=1,0:71=0.0:12=5.0:К1=0.0:К2=90.0:80508 1500:REM QUINTUPLETS 
iu DATA .01,.03,.5,10,1000 1100 €£29.014124,0:0229. 01K120,0:K2280,0:G08UB 1500 
340 FOR 255,0 TO 20.0 STEP 5.0 1110 Са10.0:71=0,0:72=9.0:К1=0.0:К2=50,0:8080В 1500 
1120 Са11.0:71=0.0:12=5,0:К1=0.0:К2=50.0:80808 1500 
350 1 READ Vid) 
1170 $z-1.0 
360 NEXT 4 de SE 
380 DATA .1,2,100,1000000 : 
410 READ B$(0.0) BS (1,0) „B$ (5.0) d FOR 390.0 Ta 290 
420 DATA *,"."Ovi q^ ` ` 1210 1 IF А(40590.0 OR B(J)<8 THEN 1230 
УНЫ 1220 1 IF B(J)>S THEN С=1:5=В (8) :0=1.0:6070 1230 
430 FOR J=0.0 TO 9.0 
40 — 1 READ A$(J) 1222. nk, AFERO 
450 NEXT J 1224 1 IF Q#RND(1,0)¢1,0 THEN C=J 
a авон, agon 1230 NEXT J 
TA "00", "10", "20", "30" "40", "50" , "60", *70" "80","90 
176 Я L CASOS адан ceo a 1235 IF KKK=(-1,0) THEN RETURN 
1240 CURSOR 0,9:808UB 4000:REM CLEAR 
500 REM YEMEN NANA NY 2 Б Шы joue en : "$C 
ul DI e 
eio REN pet PROLOGUE DE LA PARTIE rt E nnn 
630 FOR J=0.0 TO 99.0 1292 Msi dee 
ER0 Op. milan бүрін ; 1264 GOSUB 8500:REM POSIT 
1266 PRINT "O": CURSOR Q,H 
ел e 1270 N=N+1.0 
i5 Pees 1280 IF 5100.0 OR (5=0.0 AND N>1.0) THEN F=2.0 
Ge RETURN ; 1290 IF S>=V(20.0) THEN Е=1.0 
3 1300 RETURN 
208 SEENEN 
1509 REM UREA RANA AAA ERA AAA PALA APA 
n ВЕ еж Алия 1510 REM ##% EXPLORATION DES QUINTUPLETS #43 
` x * isis REM MeN SNe A ne sea name AA SANA NAT IA 
720 PRINT Voulez-vous commencer (0/82 "j 1520 C4=4,08C 
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PAGE 3 Ge ### PUISSANCE 5 [10#101 tee == FLST V2.2 
1830 FOR J=J1 TO J2 
1540 1 FOR K=K1 TO K2 STEP 10,0 
1550 2 AsJ+K:B=A+C4 220,0 
1570 2 FOR Р=А TO B STEP Ci1Z22Z4A (P) NEXT P 
1880 2 QsV (7) 
1590 2 IF 0450.0 THEN FOR Р=А TO B STEP C:B(P)=B(P)+Q:NEXT P 
1400 1 NEXT K 
1610 NEXT J 
1620 RETURN 
2000 REM ANNER NN 
2001 REM *** L'ADVERSAIRE JOUE ### 
2002 REM E 
2007 CURSOR 0,7:1G08UB 4000: КЕМ CLEAR 
2010 INPUT " Votre coup Сек: 45] "sA:PRINT 
2030 IF А<0.0 OR 4299.0 OR A<>INT(A) THEN PRINT " Un entier entre 0 et 
E 99 SVP ..."ssWAIT TIME 50:8070 2007 
2040 IF A(A)<>0.0 THEN PRINT " Case deja occupee ..."; : WAIT TIME 50: 
C 8070 2007 
2080 A(A)=1.0 
2070 X858-10, O* INT(A/10.0) 
2072 YA=INT(A/10,0) 
2074 GOSUB 8500: КЕМ POSIT 
2076 PRINT "X*:CURSOR D.H 
2080 NeNt1,0 
2100 IF N=100.0 THEN F=2,0 
2110 IF B(A)>=V(4,0) THEN Fz-1.0 
2220 RETURN 
4000 REM ANA бу № бу (м бу ту бу бу Ры бу 
4001 REM ##% CLEAR +++ 
4002 REM ANANAS e бы бу A ғу лу Ne 
4010 H=CURY 
4015 FOR T=1.0 ТОН 
4020 1 PRINT * 
G 1 js 
4030 NEXT T 
4040 CURSOR O,H 
4050 RETURN 
8000 REM NENNEN NN anyan 
8001 REM ### AFFICHAGE ### 
8002 REM AA AAA NA Ag Nr A Ay Ag лу Ay бы Py A 
8010 PRINT " 0123456789" 
8020 FOR J=0.0 TO 9,0 
8030 1 PRINT " WII j" "4 
8040 1 FOR K=0,0 TO 9.0 
8050 2 PRINT B$(A(10.0#J+K)); j" "j 
8060 1 NEXT K 
8070 1 PRINT 
8080 NEXT J 
8090 RETURN 
8500 REM 9 vv ыы ды ov missi 
8501 REM ### POSIT #44 ` 
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8502 
8505 
8510 
8520 


9000 
9001 
9002 
9005 
9010 
9020 
9030 
9040 
9050 
9060 
9070 
9080 


9100 
9101 
9102 
9103 
9105 
9110 
9120 
9130 
9140 
9150 
9160 
9170 
9180 
9220 
9230 
9240 


л. 
HINT 


4 


-- *3* PUISSANCE 5 [10410] ### 5^ 


REM "YN V NN 


HsCURY: GzCURX 
CURSOR 18%Х8%2,20-Ү4 
RETURN 


REM vv vvv VN 


REM ### QUI OU NON Ass 
REM SAN AR RSEN NIA NI 
Q=CURX:H=CURY 

INPUT R$:PRINT :R$=LEFT$(R$,1) 
IF R$<>"0" AND R$<>"o" AND R$<>"N" AND R$<>"n" THEN 9040 
RETURN 

PRINT " QUI QU NON " 

CURSOR Q,H 

PRINT " " 

CURSOR 8,H 

GOTO 9010 


REM "VV YN 


REM #44 MENU #44 
REM NENNEN AEN 
PRINT " 

PRINT " 

PRINT :PRINT 
PRINT "Le but du jeu est d'aligner 5 de vos pions, soit:" 
PRINT " - horizontallement" 

PRINT " - verticallement" 

PRINT " - en diagonale" 

PRINT :PRINT 

PRINT " Vous avez les X et l'ordinateur les 0," 

PRINT 

PRINT " BONNE CHANCE 111" 

PRINT 

RETURN 


For users of a COMMODORE FLOPPY DISCDRIVE equiped with a 


interface developped by J.BOERRIGTER,P.WIEGRS e.a. 


the 


following short program can be used to obtain a DIRECTORY 
page on a printer with parallel connection. 


Therefore 


load or type in program, insert floppy ; RUN ; 


push LEFTCURSORKEY after the page of which the printout 


is wanted, 


is displayed. 


5 CALLM £FOO00: REM DIR : ZP 


10 FOR L=@ TO 22 : 
PEEK (fBFE7—13AXL-2XT) : ?CHR$ CA); 


FOR T = © TO 30 





FLST V2.2 





20 À = 
30 HEXT T 
40 PRINT CHRS{1@);: CURSOR 0,9 : NEXT L 
М. Van Sohoor 
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~~ CIRKELSCHIJFSEGMENT 


REM +++ DEMO 0044-05-99 “ V1.0 


















1919 REM +++ tekenen cirkelschijf segment 

1029 REM +++ DAI 

1199 CLEAR 2000: MODE Ба 

1110 PRINT "Kies: Alleen een cirkelsegment £125" 

1129 INPUT " Segment in cirkelschijf < 2 > “gXePRINT 

1130 IF Х<1 OR X22 GOTO 1100 

1200 INPUT "Horizontale middelpuntscoordinaat ZMX 19-325 ";7МХ: 
PRINT 

15009 INPUT “Verticale middelpuntscoordinaat ZMY 19-245 "sZMY: 
PRINT 

1400 IF X=2 THEN INPUT "Cirkelschijf in de kleur ZKL 
9/3/5/14 "SZKLI:PRINT 

1450 INPUT "Segment in de kleur ZKL 0/3/5/14 "SZKL2: 
PRINT 

1500 INPUT "Met de straal ZR! 10-125 "IIR! 
PRINT 

1600 INPUT "Loze hoek in radialen voor segment ZH! ©- & ";7Н1!: 
PRINT 

1708 INPUT "Volle hoek in radialen voor segment ZH2! 9- 6 "“3ZH2!: 
PRINT ` 

1800 MODE 6:COLORG © 3 5 14 

1810 IF X-2 THEN ZKL=ZKL1:G0SUB 31412:REM tekenen cirkelschijf 

1900 ZKL=ZKL2:GO0SUB 31615:REM tekenen cirkelschi jfsegment 

2000 WAIT TIME 209:G0T0 1100 

17500 END 

28522 REM ХЖХХХУ tekenen cirkelschijf 77270 

26326 IF ZR'<}ZMR! THEN GOSUB 26334 

26327 FOR 20-0 TO 159:FOR ZN--1 TO 1 STEP 2 

26328 2 DRAW ZMX-ZCX(ZQ),ZMY-ZN*ZCY(Q) ZMX+ZCX(ZQ),ZMY+ZN#ZCY(ZG) ZKL 

26329 NEXT ZN: NEXT ZQ 

26330 RETURN 

26555 REM ХХХ berekening cirkelconstanten 44% 

26334 70=@:DIM ZCX (159), ICY (159) :REM startroutine 

26335 FOR ZA!=@.0 TO PI/2.9 STEP PI/316.0 

26356 1 ZOX(ZQ)=ZRIeSIN(ZA') 2 ZCY(Z@)=ZR! COS CIA! 32 Ze Dit 

26337 NEXT ZA!:ZMRI=ZR! : RETURN 

26370 REM iHHHHE DIDACOM 9044-05-00 PERRE 

26371 НЕМ HHHH 

26372 REM {HHHH tekenen cirkelschijf segment HHA 

26573 REM PHH 

26374 REM {HHHH versie 1.0 DAI — basic HHE 

26375 REM НН 

26376  Z5!=1.0/ZR!:FOR ZQ!=ZH1: TO ZH2! STEP ZS! 

26377 1 ZCX=ZR!#SIN(ZQ!I);ZCY=ZR!#CDS(ZÜO:) 

26378 DRAW ZMX,ZMY ZMX+ZCX,ZMY+ZCY ZKL:NEXT ZB!:RETURN 

51812 GOTO 26326:REM tekenen cirkelschijf 9042-05-00 

31616 БОТО 26374:REM tekenen cirkelschijf segment 0044-05-00 
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Z —EXP (— SIN (X) * SIN (Y)) 
X [—6.28 6,28] 
Y | [—6,28 6,28] 
Z [ 03 ] 

30 lijnen 90 stappen/lijn 


2 = EXP (—COS (XXY * Y)) 





1 REM MAASGRAFIEKEN — TRANSCRIPTIE VAN ANONIEM APPLE II-PROG. 

2 REM C.W.A. van Dijk - Kampen 

3 REM 

19 MODE @:GOTO 800 

29 F=SIN(X)*CDS(Y) 

3e IF Ғ>12 THEN F=Z2 

49 IF F<Z1 THEN Е=71 

50 RETURN 

199 Y=WO: Х=00: GDSUB 20 

119 W4=S2% (30-91) : X=S4% (00-01)-С1жМ44481:Үз83%(Е-21)-51%44482: 
W-1.0:IF P8-0.0 THEN RETURN 

120 W&zY:ilózX:D-21.0:Y0--S13W4*R2-1.0: Y9-S6: IF X259 THEN 
Ү9-55%Х»57 

130 IF Ү0<Ү9 THEN RETURN 

140 V2-(Y0-Y9) /EA:FOR K«0.0 TO EA: Y8zYO-K*V2 

159 Yz(R2-YB) /Si: X (U&*C Y-R1) /54401: Y=V¥/S2+W1sGOSUB 20: 
Fe(F-Z1)*834YB: IF F<W6 THEN Mate 

160 IF Fè=Wb THEN D=E@ 

178 IF W+D=E@ THEN 209 

189 NEXT K 

190 W=1.0 

290 Y=Ws: X=U6: RETURN 

218 GOSUB 100: IF W=V9 THEN 330 

220 IF TO-E2 THEN 280 

230 9-0: NB-W9-W5 

249 IF S2*(W9-WB)CEZ THEN 520 

250 WO- (48-599) /E2:GOSUB 100:IF W<>V9 THEN W9=W@ 

269 IF W=V9 THEN W8-We 

279 GOTO 248 

289 09-100: 08=09-05 

299 U@=(U8+U9) /E2:GÜGUB 100: IF W<>V9 THEN U9=U@ 

300 IF W-V9 THEN UBzUO 

319 IF S4*(U7-UB) >=EZ THEN 290 

520 -V9:V9-1.0-H 
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350 IF W<>0.0 THEN DRAW XA,YA X,Y 15 
340 XAzX: ҮА=Ү: RETURN 
350 FOR Ki=E0 TO NI: UO=U1+K1#U3: HO=H1 : BOSUB l9@:XA=X:YA=Y:V9=W: 
FOR K2=E1 TO N2:WO=Wi+K2*W3:GOSUB 210: NEXT: NEXT 
340 T@=E2:U3=(U2-U1) /N2: W3= (W2-W1) /N1 
370 FÜR Kl=E0 ТО N1:WO=W1+K1#W3:U0=U1:GOSUB 100:XA=X:YA=V:V9=W: 
FOR K2=E1 TO N2:UQ=U14+K2#U3:GOSUB 210: NEXT: NEXT 
380 PRINT + INPUT " "$A$:MDDE GA: INPUT "DO YOU WISH TO MAKE ANY 
CHANGES": A$: PRINT :IF A$c»"" THEN GOSUB 1040:G0T0 829 
390 END 
890 REM 
819 BOSUB 1000 
820 COLORG @ 15 5 12:MODE ó 
830 54=а1/ (U2-U1) :82=В1/ (W2-W1) :S3=C2/ (22-21) 1C1=0.519615:51=0. 3: 
S520. 877353: S9=01-C1#B14+R1 
840 S5-R2-814B1:U3- (02-01) /N1: W3- (02-81) /N2: S7-R2-85 (A1 4R1) 
850 E00. 01E1-1.0:E2-2, 0: EZ-0, 5i: TO-E1 
850 БОТО 350 
1090 517182. 0: B1-182. 0:C2-135. 0: R1-96. Ot R2-55. 0: N1=15. 0: N2-20. 0: 
EA710. 0:U1--5. 28: U2-6. 280: 17-6. 28: W226. 28: 21-0: 22-2. 01 
DIM A$(3.0) 
1019 PRINT CHR$ (12) 
1029 PRINT “PROGRAM PLOTS F AS FUNCTION OF x AND y" 
1930 PRINT "STANDARD FUNCTION IS:" 
1040 LIST 20-20 
1950 PRINT "ANSWER TD QUESTIONS WITH NO=RETURN AND YES-ANY OTHER 
KEY" 
1050 PRINT "DO YOU WISH TO CHANGE THE FUNCTION";: INPUT A$:PRINT 
1970 IF A$<>"" THEN PRINT "INSERT YOUR FUNCTION AT LINE 10": 
PRINT "TYPE RUN TO CONTINUE":END 
1980 PRINT "DO YOU WISH TO CHANGE" 
1090 PRINT TAB(G);"THE ORIGINS OR THE LENGTHS OF THE AXES "i: 
INPUT A$: PRINT 
1100 IF A$-"" THEN 1130 
1110 PRINT "DEF. SCREEN X- AND Y-COORDINATES OF ORIGIN ";R1;R2: 
INPUT R1,R2:PRINT 
1120 PRINT "SCREEN LENGTHS OF X-,Y- AND Z-AXIS ";A1;B1;C2: 
INPUT A1,B1,C2:PRINT 
1130 PRINT "DO YOU WISH TO CHANGE THE INTERVALS X, Y OR Z "i: 
INPUT AS$:PRINT :IF A$="" THEN 1170 
1140 PRINT "BEGIN AND END POINT OF X-INTERVAL ";U1;U2: 
INPUT U1, U2: PRINT 
1150 PRINT "BEGIN AND END POINT OF Y-INTERVAL "iW1;W2: 
INPUT Wi, W2: PRINT 
1169 PRINT "BEGIN AND END POINT OF Z-INTERVAL "321322: 
INPUT 21,22: PRINT 
1170 PRINT "DO YOU WISH TO CHANGE THE NUMBER OF LINES OR THEN 
NUMBER OF PLOTSTEPS PER LINE (DEFAULT=15,30) ": INPUT A$:7 
1180 IF A$="" THEN 1200 
1190 INPUT "NUMBER OF LINES, NUMBER ПЕ PLOTSTEPS PER LINE";N1,N2 
1299 INPUT "DO YOU WISH TO OMIT THE HIDDEN LINES (@=ND, 1=YES)"; 
PB: PRINT 
1210 IF P8-1.0 THEN PRINT "DO YOU WISH TO CHANGE THE PRECISION OF 
THE VISIBILITY-DETECTION ROUTINE (DEFAULT= 10 STEPS)": 
INPUT A$:PRINT 
1220 IF PB-1.0 THEN IF A$<>"" THEN INPUT "NUMBER OF STEPS TO BE 
USED FOR VISIBILITY - DETECTION"sEA: PRINT 
1230 RETURN 
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EDITO 7 : 


Dans ce numéro, vous trouverez la suite tant attendue de l'articie d'IDC 
BORDEAUX sur le Minitel, vous pourrez également donner la parole à 

votre DAI grace à l'article de Pascal Janin qui nous décrit son 
synthétiseur vocal ! Un petit montage amusant à réaliser pendant les 
vacances sso 


Vous apprendrez aussi la création du club EMC dont les activités autour 
de l'ordinateur Atari ST sont désormais opérationnelles | Nous avons 
besoin de volontaireS pour les différentes sections que nous voulons 
créer. Contactez la rédaction pour de plus amples renseignements, 





Le serveur "MN2 FARIS" est opérationnel depuis fin mai ! Nous espérons 
que vous serez nombreux à vous y connecter, car du succès de ce serveur 
dépendra de la qualité et de la quantité des services offerts, Nous 
vous rappellons que si vous n'etes pas encore l'heureux possesseur d'un 
modem, vous pduvez en commander par correspondance auprès de la 
rédaction (voir DAIclic précédent) 





Suite aux gréves ayant affecté le service postal, certains membres 
n'ont regu leur "Daiclic" numéro 6 qu'après un retard pouvant atteindre 
un mois ! Nous tenons à vous signaler que TOUTES les revues ont été 
envoyés le 30 avril (le cachet de la poste faisant foi ...). 


Plusieurs réclamations nous ont appris que certains d'entre vous ont 

regu à leur grand étonnement une deuxieme fois un "Daiclic" numéro 5 à 
la place du numéro 6. Après enquete, nous nous sommes aperçu que dans 
la livraison des numéros 6 s'étaient glissés une quantité indéterminée 


de numéros 5 !!! Les membres dans ce cas sont priés de nous renvoyer 
ce numéro "en trop" et nous nous empresserons de leur expédier le 
numéro 6. 


Toujours dans un souci d'améliorer la qualité de votre revue, la 
plupart des articles et schémas de ce numéro, ont été imprimés à l'aide 
d'une ImageWriter 2 (l'imprimante du Mac Intosch). Nous tenons 
particuliérement à remercier M.Giacomo Infantino pour l'aide qu'il nous 
à ainsi apportée dans la réalisation de la revue. 


Le logiciel "Mailing List" est maintenant disponible sur disquette 
Commodore VC1541 au prix de 1750 FB, avis aux amateurs... 


IDC vous souhaite de passer d'agréables vacances (bien méritées), 


La rédaction, 
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EUROPEAN MICRO CLUB С EMC ASBL) 





Nous avons le plaisir de vous annoncer la naissance du petit frère d'IDC EMC ti 


EMC a été créé pour répondre à un besoin de plus en plus insistant de la part de nos 
membres: l'ouverture à d'autres machines que le DAI. En effet, depuis quelques mois (et 
méme plus longtemps pour certains), beaucoup d'entre-vous changent d'ordinateur pour 
diverses raisons. 


Le fonctionnement d'EMC sera "calqué" sur celui 4 С: il proposera à peu de choses 
près les mémes services; revues, réseaux, programmes, réunions, rencontres 
internationales, etc. La principale différence tient dans le fait qu'il n'y a pas de limitation 
théorique dansle nombre de marques d'ordinateur ! 


Cependant, chaque nouvelle section, avant d'être créée sera soigneusement étudiée 
et préparée. EMC ATARI est la première section. Cette section tourne autour de | ATARI 
ST (130 / 260 / 520 / 1040 / 2080, ..) et est déjà opérationelle au niveau régional! EMC 
LIEGE propose en effet deja des réunions (en parallèle aux réunions 4 IDC LIEGE |), une 
programmathèque, une bibliothéque, un service d'achat à prix clubs (matériel ATARI, 
disquettes, modems, etc.) ! 


Les prochaines sections prévues sont: EMC PC (IBM PC et compatibles), EMC 
MACINTOSH EMC AMIGA, … 


Les responsables de EMC sont les mémes que ceux 4 IDC; vous ne serez donc pas trop 
dépaysés |... Pour tout renseignement sur "ЕМС" ou "ЕМС ATARI”, contactez Christian 
POELS à la rédaction. 


Pour ceux qui n'ont pas l'intention de changer d'ordinateur, qu'ils se rassurent: 
IDC continuera de leur fournir normalement les services auxquels ils sont maintenant 
habitués! Le DAI est une machine qui mérite amplement de continuer à étre exploitée et 
utilisée. Ses caractéristiques n'ont rien à envier à la plupart des ordinateurs "actuels" et 
continue d'étre utilisé dans certains domaines professionnels, tels la vidéo, l'enseignement, 
etc ! 


EMC AS B.L 

















PETITES ANNONCES 


ө Vends DCR + une quarantaine de cassettes DCR ( 700 programmes) + cassettes audio: 
10000 FB. Vends DAI "colérique": prix à débattre. Benoit Gortz, Rue de Г Athénée 12, B-6000 
Charleroi. 


е Vends carte PAL DAI: 2500 FB. Christian POELS (rédaction). 





Rem. ces petites annonces gratuites pour les abonnés sont exclusivement réservées à des 
propositions entre particuliers sans objectif commercial et relatives à l'informatique. 
DAICLIC se réserve le droit de refuser une annonce sans avoir à fournir de justification. 
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AL ATTENTION DE TOUS LES CLUBS ASSOCIES 





Remarque 


Nous sommes tres heureux de vous annoncer que grace à notre bien aime Sébastien 
DUBOURG. Gloria im. Ercelcis DEO notre programme didactique sur l'émulation 
MINITEL est enfin termine. П est cependanttrop long pour être publié in extenso dans 
DAICLIC mais il sera envoyé sur simple demande à tout membre le désirant (n'oubliez pas 
l'enveloppe timbree pour la reponse...) Vous verrez ca vaut le déplacement : 


96 pages de listing source S.P.L. 


15 Kb de pur langage machine ! 
р Profitez-en pour suivre avec plus d'attention notre série d'articles sur le MINITEL Hi 
Nous n'oublierons pas de commenter les multiples astuces ayant contribué à ce logiciel 
dans des articles annexes SOYEZ ATTENTIFS ! 


De très bonnes nouvelles |! 





Du coté du materiel 


Grâce à un de nos adherent enseignant: M. IMMER Alain, 6 Hameau de GALAU, F-47520 
Le Passage d'AGEN (53 96 48 05), il vous est possible d'acheter les imprimantes que le club 
IDC BORDEAUX vous recommandait deja: MANNESMANN TALLY $05 et 85 а des prix encore 
plus bas, à 1а CAMIF (sérieux dans l'apres vente), et équipées d'interfaces de type 
centronics, dont vous savez maintenant équiper votre DAI depuis le super montage des 
freres LEGRY dans DAICLIC5 (sinon achetez l'interface RS 232 ) 


MANNESMANN TALLY MT 805 - 2520 FRS 
MANNESMANN TALLY МТ 85 = 3670 FRS 
Et rappelons les livres proposés 


Le secteur bibliotheque du club se développe grace à la coopération d'un de nos 
membres qui a traduit de l'anglais en francais , de facon tres professionelle, le complet du 
KEN-DOS 


En raison du don bénévole de ce travail au club, ce livre vous est offert à prix coütant 
pour 40FF port compris: MANUEL KEN-DOS en FRANCAIS. 


Vule nombre des demandes, une réédition du 'TOS COMMENTE' a été faite. Que tous 
ceux qui n'avaient pu l'obtenir l'an dernier me réécrivent Le prix lui n'a pas augmenté: 
150FF port compris (- p.c.). 


IDC BORDEAUX 

S/c DELANNAY Bruno 
Кёз. les Acacias. Bt. B3 
Avenue de SAIGE 
33600 PESSAC - FRANCE 


EN 
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IDC LIEGE NEWS 








Chers Amis 


IDC Liège vient de terminer la programmation d'une EPROM pour le generateur de 
caracteres. Elle contient 255 caracteres dont les 127 premiers sont compatibles avec les 
imprimantes EPSON et STAR _ Elle ne perturbera pas vos programmes elle est aussi 
compatible avec l'EPROM du DAT 


"PRESENTEZ VOUS QUI DISAIS" (OU L'EDITO D'UN CLUB QUI SE 
RENGAGE POUR LA DEUXIEME ANNEE CONSECUTIVE DANS L'AVENTURE 
DU DAICLIC) 








Sont disponibles avec cette EPROM 


Déjà le deuxiéme numéro de cette année et nous ne vous 


N А duree EE avons toujours pas dit bonjour ! Qu’a cela ne tienne ! Per- 
~ les caracteres accentués (au clavier avec le traitement de texte é è ã ù ç ê ü i6, mettez nous de voos presenter les bute de notre- Club Tis 
- les caracteres graphiques des imprimantes EPSON (128 à 159). sont multiples et non exhaustifs ! Sachez cependant que 


- d'autres caracteres graphiques pointillés … , А 
- des caractères mathematiques tels que racine carrée, somme, intégrale, chiffres 
en exposants eLen indices, 


fonctionnent déjà pleinement notre bibliothèque de logiciels 
(la softthèque et sa fameuse liste contenant d'une facon 


compacte et précise tous les renseignements Sur les 
- les lettres grecques programmes qu'elle contient), notre service de  docu- 
mentation, notre service achats de matériels, sans oublier 


Une dizaine d'emplacements sont libres pour vos propres caractères. Nous pouvons 
vous les programmer. Il suffit de nous communiquer leur dessin dans une grille de 8 x 11 
(cf. manuel francais p. 124) 


bien sur l'édition de programmes à des conditions défiant 
toutes concurrence. 


1 H To our English friends 
2 
3 в 9 е ё a We are very glad that the French Dai users and those 
4 4 ° whose who speak the Shakespeare's language can now 
5 $9 € e $ 6 @ Ы communicate via an commun issue. If you are interested in 
6 ө $ ? our club and its services (soft library, harware section, 
? 9899228020206 ° ° programm diffision, etc.), don’t hesitate to contact us. We 
8 D will be very happy to answer you ! 
9 44% 
10 
11 Coucou, nous revoilà en Français ! 

8?651321 


Cette année nous inaugurerons deux nouveaux services. 


Pour avoir cette EPROM. il suffit de verser 500 FB à Ph. Rasquin au compte 001- 
1845627-84 pour la Belgique. Pour l'étranger il faut envoyer un mandat international à Ph 


: ; ` La première est une surprise, et, comme toutes les 
Rasquin, Rue de Saivelette 89, 4510 Belgique. Mentionnez clairement vos nom et adresse ! 


surprises doit se faire attendre un tout petit peut. Mais 
nous croyons ne pas nous tromper en disant qu'elle rejouira 
tout les Français daiistes muni d'une certaine interface... 


Le responsable IDC LIEGE, 











Ph. Rasquin Patience donc jusqu'au prochain numéro. 
Бы Я La seconde est en fait l'aboutissement d'une des rai- 
| | | sons de la création de D.C.A. et s'est concrétisé ргӛсе à la 
participation exemplaire de certains de nos membres (vous 
savez donc se qu'il vous reste à faire les autres ?...) 
Ainsi par DCA hard, voulons nous permettre à chacun, méme 
d © i S'il ne connait rien à "l'art du fer à souder" ou n'a pas un 
détaillant de composants électroniques dans ses relations, 


d'étendre les possibilités matérielles de son ordinateur 


p favori. 
CH Gp [N Pour DCA, Philippe Casier 
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DCA hard 


Les cartes vont sont proposées sous deux formes. La 
première, ou version kit (VK), comprend le circuit imprimé 
percé, les composants, et la notice de montage. La deuxième, 
ou version intégrale (VI), comprend la carte entièrement 
montée et testée. Pour certaines cartes nécessitant un 
minimum d’habileté dans la soudure ou de connaissances 
électronique, nous vous conseillons fortement la version 
intégrale {dans ce cas la carte est signalée par z 
A noter qu'aucunes certes n'est livrées avec boitier, cer- 
taines cartes pouvant en effet se regrouper ensemble. Enfin 
il faut rajouter aux prix indiqués (moins 1а remise 
éventuelle de 10% pour les membres de DCA) les frais 
d'envoi variant ci-dessous (nous consulter dans le cas d'une 
commande groupée). 


Hello, DAI's speaking 1 





Pascal JANIN, F-73 LA MOTTE SERVOLEX 





Eh oui! Voici enfin ce dont je vous avais parlé depuis trop longtemps déjà, et à propos 
de quoi je m'abstenais obstinément (ndri: !) de vous donner de plus amples informations. 
Vous avez sans doute deviné ce dont i s'agit: le synthétiseur vocal! 





Passons tout d'abord quelques points en revue: 


- La béte en question ne jacasse convenablement qu'en anglais; amis 
francophones, ne soyez pas dégus pour autant: en faisant abstraction (ndlr: quelle 


$ : envoi léger, France : 3,90 FF obstination...) de son déplorable accent anglais, il est néanmoins capable de vous 
$$ : envoi lourd, France : 12,60 FF sussurer à l'oreille quelques bonnes phrases en francais, mais étant donné que cette 
$$$ : envoi léger, Europe : 10,30 FF satanée langue d'outre-manche est plus "causée" que notre belle langue francaise, les 


résultats obtenus avec la première sont nettement plus convaincants qu'avec la 
seconde... 


$$$$ : envoi lourd, Europe : 28,80 FF 


ANANUM : Faites l'acquisition de B données numériques et 8 
données analogiques continues avec cette carte, début d'une 
série d'extension du bus DCE. Remarque 
| Prix : 328 FF еп VK, 398 FF еп VI 
E + $$ ou $$99 


- La réalisation de ce petit montage, d'un prix de revient ridicule face aux plaisirs 
quii vous procurera, est à la portée de n'importe quel informaticien en herbe 
sachant manipuler avec dextérité un petit fer à souder (maxi 40 W !).... 





- La béte se connecte en principe avec le lecteur DCR; pour le Ken-DOS, je n'ai 
pas vérifié, mais à mon avis il doit falloir débrancher au préalable tout 
l'équipement externe connecté au bus DCE (lecteur * alimentation) sans néanmoins 
toucher à la carte interne sur le X-bus. 


E: DAISPOT : Vous réviez de vous faire un chenillard pro ou de 
commandez jusqu'a B canaux 220v simultanés (jusqu'à 24 avec 
| 3 cartes). C'est chose faites à présent avec cette carte 
г entiérement isolée du secteur. 
Prix : 320 FF en VK, 390 FF en VI 
+ $$ ou $9$9$ 


Pour finir, l'article entier sera réparti sur 2 DAICLIC, d'une part pour maintenir 
les lecteurs en haleine, d'autre part, pour vous permettre de monter d'abord la partie 
électronique et non pas vous étouffer sousune montagne de documentation donnée en un 
seul bloc. 





ELECTROFUS : En cas de défaillance de l'alimentation il ər- 
| rive fréquement que du 22v arrive sur les circuits TTL се 
Hi qui est mortel pour eux. Cette carte, placée à la place du Allez, assez bavardé, passons à la... 
m fusible du Dai, le complete avantageusement. 
| Prix Ap FF en VK, 50 FF en VI 

+ $ ou $$$ lére PARTIE: LA DESCRIPTION TECHNIQUE 
INTERFACE JOYSTICK : Avec cette carte vous pourrez remplacer 
vos manettes de jeux par des manettes type atari et autres 
spectravidéo, ce qui est beaucoup plus efficace pour les 
jeux. 


La piéce maitresse de la carte électronique est un petit processeur vocal mis 
récemment sur le marché "amateur" de l'électronique. Cette petite béte à 28 pattes, 
nommée SPO 256, travaille sur le principe des phonèmes. Chaque mot parlé couramment 
est décomposé en une suite de phonémes envoyés successivement au SPO 256 qui les 
reproduit par un haut-parleur précédé d'un petitampli. Pour la langue anglaise, il suffit 
de 60 phonémes pour reproduire pratiquement tout son vocabulaire; pour la langue 
française, И en faut un peu moins de 40 pour reproduire également presque tout le 
Larousse! П est également utile de préciser que le SPO 256 n'admet pas de changement 
de registre (voix aigüe ou grave) ni de changement d'accent! Les anglais ou français du 
sud et du nord y sont tous sur un pied d'égalité. La deuxième partie de l'article sera 
d'ailleurs entiérement consacrée à l'exploitation “pratique” de cette carte. Mais n'anticipons 
pas trop... 





Prix : 30 FF en VK, 35 FF en VI 
+ $ ou $$$ 


Nous avons essayé d'obtenir les prix les plus bas pour 
les composants des montages, cependant si vous connaissez 
des fournisseurs particulierement avantageux, n'hésitez pas 
à nous contacter. 


DCA hard 
c/o Philippe Casier 
31ter rue de Paris 
92190 MEUDON 
FRANCE 


Le schéma électronique est "relativement" simple: 
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et valide ou non la lecture ou l'écriture de données pour le SPO 256. Celui-ci génère 3 
signaux importants: 


. LRQ (Load ReQuest, pin 9) est à l'état 0 lorsque le SPO 256 est pret à recevoir 
d'autres données. 

. SBY (Stand BY, pin 8) est à l'état 1 lorsque le SPO 256 a fini d'exécuter la 
précédente donnée. 

. ALD (Address LoaD, pin 20) doit être "pulsé" à 0 lorsqu'une donnée a 616 envoyée 
vers le SPO 256 pour qu'il l'accepte. 





DAT (BUS -pce ) 


[cx IT anr] Е 


TD *olto po 
> боны ке [ES Da ES 












La combinaison du décodage et des 3 signaux précités plus WR et RD venant du bus 
DCE, permet de contróler efficacement le SPO 256. À noter que l'envoi d'une donnée et la 
lecture de l'état du SPO 256 ("prét" ou "en cours d'exécution") se font sur la même adresse 
(007470... ou INP (*70) ). Pratique, n'est-ce pas ?... 


EIK 2 


£ 


Zaj t 
22 


%; 


Hest à noter également que le DAI s'informe de l'état du SPO 256 par la lecture 
du bit 7 du port 7 choisi pour la carte: lorsque ce bit 7 està 1, on peut envoyer une 
nouvelle donnée. L'exploitation par logiciel est la suivante: 








OUT #70 donnée (de 0à 64) 
WAIT *70,*80 (attend que ce fameux bit 7 passe à 1) 
NEXT donnée 





Noter aussi la résistance de 82 K (valeur déterminée aprés plusieurs essais) en série 
entre la porte OR et le bit 7 du port A: elle évite, lors de l'envoi d'une donnée, la. destruction 
de la porte logique en cas de conflit de signaux en limitant l'intensité de court-circuit à 
une valeur tout-à-fait supportable pour la porte OR (1 = U/R = 5V/82000 Ohms = 60 micro-A 
D). H ne faut surtout pas baisser cette valeur de 82 KOhms (destruction de la porte) ni 
l'augmenter (le niveau logique n'est plus pris en compte). Enfin, le seul transistor de 
toute la carte permet de réaliser une porte inverseuse à moindres frais pour le décodage 
par le 741,520. 


Ces quelques explications concernent le montage en "amont" du SPO 256, passons 
maintenant au coté "aval". 


dt 





Une fois la donnée reçue, le SPO 256 fait entendre sa "voix" par sa pin 24 sur 
laquelle vient se greffer un double filtre passe-bas passif pour donner au signal une 
forme moins "brute" (plus agréable à l'oreille). Viennent ensuite un potentiomètre pour le 
réglage du volume, puis un petit ampli de 05 W environ, tout à fait classique et d'une 
qualité à toute épreuve pour ce prix, à la sortie duquel vient se greffer l'inévitable (et 
indispensable) haut-parleur, Il est important de souligner que la qualité de la parole 
dépendra en grande partie du haut-parleur choisi: un petit modèle pour magnétophone 
Gem - 80hms - 0.3 W) donnera des résultats plutôt décevants car sa petite taille ne 
permet qu'une reproduction médiocre des graves dont la voix "humaine" fait un usage 
intensif. Aussi, je vous conseille vivement d'opter pour la "taille au-dessus”, à savoir un 
haut-parleur d'au moins 10cm en 80hms, de puissance respectable (1W, c'est le pied... et c'est 
pas ruineux !) 


+ Encore un mot sur le quartz de SPO 256 (car en effet, ii lui en faut un pour ses divers 
EM filtres digitaux, ROM internes, etc): je préconise une valeur de 3.2768 MHz car c'est la plus 
>» Fy, P facile à trouver et la moins chère! Mais toute valeur comprise entre 3 MHz et 4 MHz peut 


tout aussi bien convenir (plus la valeur de la fréquence est élevée, plus la voix est aigüe...). 
macro 


Pour de plus amples renseignements sur le SPO 256 lui-même, vous pouvez toujours vous 
référer au numéro 81 (mars 85) de la revue ELEKTOR, pages 3-38 et suivantes. 


Une dernière mise en garde: 
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016 compos: 
e Ф 
Le circuit intégré spécialisé utilisé ici doit pouvoir se trouver à peu prés partout 
(chez TANDY par exemple). Mais attention: sous la référence SPO 256 se cachent 2 (et Ф. Rota de Lakes 
plus) types de circuits: Ÿ 3 тут. 
a ж n [: . U Ф 
- le SPO 296 “tout court" qui est vendu avec une ROM contenant son vocabulaire à gs . . > ee: dou 
un prix inferieur à 100 FF (en général, il est bradé car personne n'en veut plus: wg Hos ls 
son vocabulaire est fixé à l'avance et il ne fonctionne pas sur le principe des : we et i ; е 
phonèmes). А ECARTER 1! c LT: = сл Nee: ты ДИМ 
b fÜ ]+ . к age 
Ke i . 
- le SPO 256 ALx: où x prend une valeur entre 0 et 9; à chaque x correspond une А ty Ч : (im pluo fom) 
langue différente. Tout autre type que x-2 est introuvable, le plus courant (et le uS . . 25; ` 
seul distribué !) est le SPO 256 AL2 qui parle, vous l'aviez deviné, l'anglais. C'est e° 2101» š . “с: УЛАГА a 
cette seule et unique version qui fonctionne avec la carte, n'en achetez pas d'autre $5. : dn DEBIUT 
| SE М Й — 
° D 
Donc: retenez bien son nom: SPO 256 AL2. | е: % ! 
Voici maintenant les plans du circuit imprimé que je vous propose: T : «à e (ac 933 
© Ф | { 
Côté cuivre: b BC 54% 








De {BC 401 


Peu de remarques à faire si ce n'est que je vous conseille vivement d'étamer le circuit 
imprimé (question de longévité). Attention au transistor T1 dont la patte “émetteur” devra 
etre pliée (à la pince !) plus loin que les 2 autres. 


20,5 em 








Connecteur 34 broches = F 
N 
o 


Carte cóté composants 
{ i interrupteur 


LEM 
































Pour le cáblage du haut-parleur et de l'interupteur, utiliser du fil simple de petite 
| section. Par contre, pour le câblage versle bus DCE, il faudra se procurer un connecteur 
| type SUB-D 34 broches femelles que l'on sertira dun côté sur du câble en nappe 34 
| conducteurs au pas de 1.27 (très facile à trouver chez n'importe quel dealer DAI...) et que 
| lon dénudera de l'autre avec toutes les précautions d'usage pour ces 34 conducteurs 
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extrémement fragiles. Comme tous ne sont pas utilisés, couper proprement ceux qui restent 
eten isoler le bout par du ruban adhésif (simple... mais efficace !). 


Essais: le moment crucial ! 

Bien revérifier une dernière fois toutes les orientations des circuits intégrés, 
condensateurs. Fteindre alors le DAI, mettre en place le connecteur dans la prise bus 
DCE, et rallumer le DAI. Si rien ne claque ou ne chauffe sur la carte, c'est bien parti. 
On doit alors observer un infame gargouillis dans le haut-parleur, et ce, quelque soit 
la position du potentiometre de volume: ce sont tous les parasites qu'induit le DAT, et 
contre cela, il n'y a aucun reméde (voir plus loin) ! Vérifions si tout marche bien: 
mettez le volume à fond, puis en mode direct, faites: 


OUT o 20 eg (RETURN) ‚ауес 5 <= ЖЕ «63 


Un son DOIT se faire entendre. H s'arrëte tout seul, ou bien dés que l'on fait: 





OUT *70,y y (RETURN) ; avec Don yy «4 


Si c'est le cas... Félicitations | Patientez dés lors jusqu'au prochain article... en 
rentrant le programme de démonstration suivant: 


IMP ЕРТ 


1 PRINT CHR$(12)TAB(17); DEMO <<< EXPEND SPK >>” 

2 PRINT TAB(17) * t e een 

3 POKE 75,32 

9 CLEAR 10000 

10 DIM DIZ7,(9.0,9.0), UN% (9.0,6.0), SPEC% (12.0,10.0) 

20 FOR 1%=1 TO FOR J% =0 TO 6:READ UN%(1%,J% ):NEXT:NEXT 
21 FORK%=1 TO 9:FOR L% =0 TO 9:READ DIZ% (K% ,L% ):NEXT:NEXT 
22 FOR M%-1 TO 12:ҒОВ № =0 TO 10:READ SPEC% (МФ ‚N% ):NEXT:NEXT 
23 GOTO 1000 

29 REM ---------- UNITES 

30 DATA 46,15,11,0,0,0,3 

31 DATA 13,31,0,0,0,0,3 

32 DATA 29,14,19,0,0,0,3 


33 DATA 40,40,58,0,0,0,3 
34 DATA 40,40 6,35,0,0,3 
35 DATA 55,12,12,2,41,55,3 
36 DATA 55,7,7,35,12,11,3 


37 DATA 202,13,0,0,0,3 

38 DATA 11,24,6,11,0,0,3 

39 REM ---------- DIZAINES 

40 DATA 13,7,7,11,0,0,0,0,0,3 

41 DATA 13,48,7,7,11,1,2,13,19,3 

42 DATA 29,52,1,2,13,19,0,0,0,3 

43 DATA 40,58,2,13,19,0,0,0,0,3 

44 DATA 40,40,12,1,40,40,2,13,19,3 
45 DATA 55,55,12,1,41,55,2,13,19,3 
46 DATA 5555.15,35,12,11,2,13.19,3 
47 DATA 20,2,13,19,0,0,0,0,0,3 

48 DATA 11,6,112,13,19,0,0,0,3 

49 REM ---------- 1119 

50 DATA 12,45,7,7,25.12,11,0,0,0,2 

51 DATA 13,487 7 45,35,0,0,0,0,3 

52 DATA 29,51,1,2,13,19,11,0,0,0,5 

33 DATA 40,58,1,2,13,19,11,0,0,0,3 

54 DATA 40,12,40,12,13,19,11,0,0,3 
55 DATA 55,55,12,2,41,55,2,13,19,11,3 
56 DATA 55,55,15.35.12,11,2,13,19,11,3 


57 DATA 20,1,2,13,19,11,0,0,0,0,3 
58 DATA 11.6,11,1.2,13,19,11,0,0,3 


59 REM ---------- CENT 

60 DATA 57.1515.110:333977.021 
6 алашаны 

62 DATA 29243243 1501121003 
63 REM ---------- MILLION 

64 DATA 16.12,12.45.49,15.11,0,0,0,3 
65 REM ---------- FIN DES PHONEMES 


1000 POKE *75,95 

1001 PRINT "DESIREZ-VOUS ENTENDRE TOUS LES CHIFFRES (0/N) ?"; 

1002 G% =GETC:IF G% =0 GOTO 1002:IF G% -ASCC'N") THEN PRINT PRINT ‘GOTO 1070 

1005 PRINT :PRINT :PRINT "ECOUTEZ LES CHIFFRES ( en Anglais ) … 

1010 FOR 1% -0 TO 9:FOR 1%-0 TO 6 

1011 OUT *70,UN% (1% ,]% ):W AIT *70,#80:NEXT NEXT 

1020 FOR L% =0 TO 9:0UT #70,DIZ% (1 0,L%):WAIT *76,*80:NEXT 

1030 FOR МФ =1 TO 9:FOR N% =0 TO 10 

1031 OUT #70 SPEC%(M% .N% ):W AIT *70,*80:NEXT:NEXT 

1040 FOR K% =2 TO 9:FOR L% =0 TO 9 

1041 OUT #70,DIZ% (K %,L% ):WAIT *70,*80:NEXT:NEXT 

1050 FOR M%=10 TO 12:ҒОВ N% =0 TO 10 

1051 OUT *70 SPEC% (M7 ,N7u):W AIT *70,* 80:NEXT:NEXT 

1060 PRINT :PRINT :PRINT :PRINT 

1070 Y%=CURY 

1071 CURSOR 0,Y%:PRINT SPC(59);CURSOR 0,Y%:INPUT " VOTRE NOMBRE (Мах: 
2147483646 ; Min:1)":NB% 

1072 IF МВ%<1 GOTO 1071:1F МВФ ›=1Е6 GOTO 1075 

1073 NA%=NB% :GOSUB 2000:GOTO 1071 

1075 NA%=INT(NB% /1E6):GOSUB 2000 

1076 FOR К%-0 TO 10:0UT *70 SPEC%(12.0,K% ):W AIT *70,* 80:NEXT 

1077 NA%=INT(NB% MOD 1E6):GOSUB 2000 

1078 GOTO 1071 

2000 N1%=INT(NA% /1E5):IF N17. -0.0 GOTO 2010 

2001 АФ -1 

2005 FOR 1% =0 TO 6:0UT *70,UN 5 (111% 1%) ЖУ AIT *70,* 80:NEXT 

2006 FOR 1% -0 TO 10:0UT *70,SPEC%(10.0,1% ):W AIT *70,* 80: NEXT 

2010 N2%=INT(NA% /10000.0) MOD 10.0:1Ғ N2% -0.0 GOTO 2020 

2011 A%=l 

2012 IF N25 =1 GOTO 5000 

2013 FOR 1% -0 TO 9:0UT #70 DIZ% (N2% 1% ):WAIT *70,*80:NEXT 

2020 М3%-ІКТ(МА%/1000.0) MOD 10.0:IF N3% -0.0 GOTO 2030 

2021 А%-1 

2022 IF М2%-1 GOTO 2030 

2023 FOR 1% -0 TO6:QUT *70,UN%(N3% 1% ):W ATT *70,* 80: NEXT 

2030 IF АФ -1 THEN А%-0:ҒОК 1% -0 TO 10:0UT #70 SPEC%(11.0,1% ): WAIT *70,* 80: NEXT 

2040 N4% -INT(NA% /100.0) MOD 10.0:1Ғ N4% -0.0 GOTO 2050 

2041 FOR 1% =0 TO 6:0UT *70,UN%(N4% 1% ):W AIT *70,* 80: NEXT 

2042 FOR 1% -0 TO 10:0UT #70 SPEC% (10.0,1% ): WAIT *70,* 80:NEXT 

2050 М5%-ІМТ(МА%/10.0) MOD 10.0:1F N5% -0.0 GOTO 2060 

2051 IF N55 -1.0 GOTO 6000 

2052 FOR 1% -0 TO 9:0UT #70,D1Z% (N5% 1% ):W AIT *70,* 80:NEXT 

2060 IF NA% MOD 10-0 THEN RETURN 

2070 FOR 1%-0 TO 6:0UT *70,UN%(NA% MOD 10.0,1% ): WAIT #70,*80:NEXT 

2080 RETURN 

5000 IF INT(NA% /1000.0) MOD 10.0-0.0 GOTO 2013 

5010 FOR 1%-0 TO 10:0UT %70,5РЕС%(ІМТОЧА%/1000.0) MOD 10.0,1% WAIT %70,480: 
NEXT 

5020 GOTO 2020 

6000 IF NA% MOD 10-0 GOTO 2052 

6010 FOR 15-0 TO 10:0UT *70 SPEC%(NA% MOD 10.0,1% ):W AIT *70,*80:NEXT-RETURN 
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gecteur 





Ce programme restitue tout nombre ENTIER rentré au clavier sous forme parlée... Ce 
n'est qu'un avant-goût de ce qui vous attend au prochain numéro ! 


PS: Pour tous ceux que les parasites rendent dingues, il est possible de les supprimer en 
passant pas une alimentation EKTERIEURE au DAI; les modifications du câblage et les 
plans suivent... 











Verg BUS DCE 
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l pont de diodes 


Liste des composants pour alimentation extérieure: 





1 transformateur 220V/9V -5VÀ 

1 pont de diodes 1À 

1 condensateur électrolytique 1000uF - 25V 
1 régulateur 7805 (positif 1A - 5V) 

1 condensateur 47nF 


Liste générale des composants: 

























































RI resistance J.I К 1⁄2 V 
ue 4.7 k 

кз Blk 

ке 100 К 

RS 22 к 

RIG ЭЗ k 

RIT 56 k 

RI 19 ohm 

Fl potentio 10 k log 

Cl condensateur 22 pF 

C2 

C3 I nF 

C4 22 nF 

cs 18 ри F 16 V 
Ce lo pF la V 
с? 100 nF 

CS 100 nF 

ce 220 A F 16 V 
cie 100 nF 

CIE 108 uF 16 V 
GAL 186 nF 

G2 47 nF 

Q quartz 3.2768 Mhz 

ІСІ EN Z4LS2@ (14) 
ICE SN 74LS32 (14) 
IC2 SFO 256 ALZ (28) 
IC4 LM 386 (8) 

71 МЕМ (BCIO7) 


- HP haut-parleur 89 IW 210 cm 

- ] connecteur SVED 24 broches 
femelles а sertir 

- du cable-nappe 34 conducteurs 
au pas de 1.27 mm 

— fil simple 

- soudure 

= J interrupteur simple 

] circuit 2 positions 


51 СА NE MARCHE ОТ" А MOITIE 7... 


Pour la connexion au bus DCE, deux cas peuvent se présenter: 


1. Sila carte de parole est connectée avec d'autres extensions sur le bus DCE (ex: 
Mémocom, Een-DOS....), IL SE PEUT que ces extensions brovillent le signale READY, c-à-d 
se superposent à celui-ci qui devient alors indétectable car trop faible.. Alors passez au 
paragraphe quisuiten allant jusqu'à 10 Kohms, voire 8,2 Kohms MINIMUM pour R3. Si la 
carte ne marche pas mieux, vous DEVREZ déconnecter du bus DCE toutes les cartes 
extérieures, sauf  "synthé de parole" (évidemment |), pour pouvoir exploiter cette 
dernière... 


2. Sila carte est connectée SEULE au bus DCE, armez-vous de patience et ABAISSEZ 
la valeur de R3 tout en essayant périodiquement SPEECH COUNTER, et ce jusqu'à une 
valeur minimale de 15 Kohms. À partir d'une certaine valeur (en principe, aux 
alentours de 47 Kohms), le programme se met subitement à fonctionner: le mal est alors 
réparé Il! 
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DAI et MINITEL 


IDC Bordeaux 


Zéme Partie: 


Apres une longue interruption, l'article sur le MINITEL se poursuit donc par 
l'explication ingrate dune des parties les plus sujettes aux exceptions et donc aux 
difficultés de gestion, en vue de son imitation pour parfaire notre émulateur MINITEL. 


Ici ne seront évoqués que les paramètres en rapport avec les caractères 
alphanumériques. Nous commencerons le graphisme la prochaine fois (nanére...). 


ATTENTION |! 


Dans le DAICLIC 4 ont débuté les explications, et cet article se voulait suffisamment 
complet pour vous proposer les moyens matériels (interface) et logiciels pour commencer à 
tâter un peu du sujet par vous méme. Les deux programmes (MINITEL 1 et 2) qui 
devaient se trouver dans cetarticle ont finalement été publiés plus tard dans le DAICLIC 
$. Ils ont bien sür été envoyés à tous ceux qui nous en avaient fait la demande avant la 
parution du numero 6. En plus ce mois-ci, je vous annonce fa naissance d'un utilitaire de 
développement encore plus performant pour étudier votre MINITEL, entièrement en 
assembleur et commenté par М. Sébastien DUBOURG. Ce programme. comme tous nos 
logiciels, est disponible et entièrement gratuit (demandez MINITEL 3 !) 


Pour les personnes qui ne sont pas satisfaites de la petite interface décrite, le CLUB 
LDC Bordeaux diffuse une interface un peu plus performante qui vous permettra de 


brancher sur la méme RS-232, votre MINITEL, et votre imprimante, avec possibilité de ` 


commutation de l'un à l'autre aussi bien par un simple interrupteur manuel que par une 
prise sur une des deux interfaces K7, ce qui autorisera la commutation automatique par SOFT 
n 

Vous en trouverez le plan dans un trés prochain DAICLIC 


Preambule 
Dans cet article, je parle indifferemment de recevoir des séquences ou d'envoyer des 
séquences, en effet, ne perdez pas de vue que vous pouvez considérer vos relations avec le 
MINITEL sous deux angles complémentaires : 
- celui de l'utilisateur qui ne sait que recevoir des séquences d'attributs. 
- celui de l'émulateur qui a construit "l'interface" décrite dans le précédent article 


et quivaenvoyer tous lescodes qu'il veut grâce à son DAI et aux programmes 
que I.D.C.Bordeaux tient à la disposition de ses adhérents. 


Les attributs de GROUPE 





Mémorisation des attributs de groupe: 





Prenons un exemple: 


Le MINITEL recoit un attribut pour faire changer la couleur du fond: l'ancienne 
couleur de fond étant noire, la nouvelle couleur de fond, rouge. La séquence 
correspondante reçue par le MINITEL est alors 18 23 20 51 (cf. DAICLIC 4). 


En théorie, cette commande change la couleur du fond sur l'ensemble de l'ecran 
En pratique: 
- Cette commande demande à étre validée 


- la validation seffectue par la réception d'un caractere езрасе que nous 
qualifierons d'espace validant !!! 


- Tous les caractéres recus avant cet espace validant sont affichés avec l'ancienne 
couleur de fond, car le changement d'attribut de couleur de fond n'a pas encore ete 
confirmé par l'espace validant (enfoncons le clou !!). 


- Après réception de l'espace validant. l'attribut, bien qu'étant en théorie valable 
sur tout l'écran, ne reste actif que sur la fin de la longueur de la ligne où l'espace 
validant a été reçu et que sur cette partie de l'ecran li. 


- Pour une ligne différente, que ce soit la suivante aprés avoir atteint 
naturellement l'extrémité de la ligne où nous étions, où que ce soit n'importe 
quelle autre ligne atteinte grâce aux commandes de déplacement du curseur, le 
fond garde la couleur qu'il avait avant la demande de changement d'attribut 
"couleur de fond" comme si de rien n'était !! (CIEL Н) 


- Si sur cette ligne suivante, une nouvelle commande  d'attribut de groupe est 
reçue, autre qu'un changement de couleur de fond (bien sûr !), par exemple 
l'attribut de groupe lignage (commande de soulignement si on est en mode 
texte), alors dés réception d'un espace "validant", nous aurons non seulement 
obtention du ‘lignage mais en plus le changement de couleur du fond et nous 
verrons notre fond rouge ressortir des enfers li! (HELLS). 


Ces quelques remarques sont généralisables non seulement a toutes les demandes 
de changement de couleur, mais à toutes les demandes de changement (gestion) des 
attributs de groupe (cf. article précédent). 


POURQUOI 7??? 
Parce que: 

Tout se passe comme si le MINITEL "mémorisait" les différents attributs de groupe en 
cours pour une page d'écran (ce que nous devrons faire dans notre programme d'émulation 
en créant un "buffer" "attributs de groupe") et que ces différents attributs sont remis à 
jour pour Ја ligne en cours, à partir de la position courante du curseur. lors de chaque 
réception d'un espace validant. 


Qu'est ce qu'un ESPACE VALIDANT ??! 





Tout se passe comme si le MINITEL distinguait deux catégories différentes du 
caractère espace En réalité c'est le méme code qui est utilisé et la différence entre ces deux 
espaces ne tient qu'à leur position dans le flot des données : le premier espace recu après 
une séquence d'attributs de groupe est dit VALIDANT. Son code est le méme que l'espace 
normal (: CHR$(*20)) et il est affiché à l'écran comme (ou presque … cf. bien plus tard...) 
un espace normal, faisant donc avancer le curseur d'une case. 


Reprenons notre exemple: 





Le MINITEL recoit une séquence de demandes d'attributs de changement de couleur 
de fond en rouge, le MINITEL interprétera le prochain espace trouvé dans le flot des 
données, comme validant. Avant réception de cet espace validant le MINITEL présente un 
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état "d'attente de validation d'attribut de groupe" grâce à un drapeau ( "flag" pour les 
anglophiles) comme s'il possédait une variable interne se mettant à 1 ou à Û selon qu'il 
attend ou non une validation des attributs de groupe. 


Ceci implique que nous devrons aussi créer une variable afin de caracteriser notre 
buffer d'attributs de groupe pour un écran donné selon que l'espace validant attendu 
aura été recu ou non. 


Après réception de cet espace, la "variable interne" du MINITEL est mise à jour et 
l'ensemble des attributs de groupe en cours est mis à jour pour l'écran considéré: pour 
nous, le fond de l'écran prendra la couleur rouge à partir de la position du curseur au 
moment de la réception de l'espace validant, et jusqu'à la fin de la ligne. Les espaces 
suivants sont considérés comme normaux. 


Nota Bene: 


Cette "attente" interne d'espace validant du MINITEL ne l'empéche en rien de 
continuer à dialoguer avec ses périphériques (monde extérieur, DAI, écran, clavier). 


C'est l'état à 0 ou 1 de la "variable interne” du MINITEL qui lui permet de savoir si 
l'espace recu est validant ou normal. Chaque demanded'attribut de groupe remet la variable 
dans son état "attente" et chaque réception d'espace la remet dans son état "libre". 


` Toujours dans notre exemple si nous nous déplaçons sur une autre ligne (dont le fond 
est encore noir) grâce aux instructions 'curseur', et que nous envoyons une séquence 
d'attributs de lignage: 1B 23 20 5A, alors le MINITEL place sa "variable interne" en état 
d'attente d'espace validant. Aprés réception de cet espace, le MINITEL va revérifier tous 
les attributs de groupe en fonction pour cette page d'écran et les caractères suivants qui 
vont étre affichés sur cette ligne seront non seulement soulignés mais aussi avec une 
couleur de fond rouge !! 


Mais si vous désirez seulement avoir des caractèressoulignés et que vous vouliez 
conserver la couleur de fond d'origine noire, il vous faudra rajouter autre chose : 


La méthode "trés boeuf": 


Effacer tout l'écran par un CHR$(12) ce qui efface aussi tout état d'attente et les 
anciens attributs de groupe en rigueur pour l'ancienne page. Inconvenient: ça efface 
carrément tout !! (sauf certains attributs protocolaires tel le scroll par exemple (сЁ. plus 
tard]); éteignez votre MINITEL c'est plus rapide. 


La méthode "un peu moins " (tout juste veau): 





Annuler l'attribut gênant par son attribut inverse, ici préciser "couleur de fond 
noire” + "lignage" + espace validant (un seul nécessaire bien sûr si vous avez suivi). 


Une autre bizarrerie: 





Tous les attributs de groupe sont affichés sans restriction sur la totalité de la fin de la 
ligne où ils ont été validés … sauf l'attribut "couleur de fond” i 


La couleur de fond, si elle rencontre une ligne "discontinue", c'est-à-dire une ligne où 
elle a été validée mais op les caractéres ne sont pas contigus (des mots séparés par des 
"espaces" ), mais où ces espaces ont été obtenus non pas par pression sur la barre d'espace, 
mais par une commande de déplacement de curseur (comme les touches fléchées de notre 
DAI en mode éditeur), la couleur de fond donc s'arréte au bord du "trou" entre deux mots et 
ne se propagera jusqu'au prochain "trou" que si le trou qui arréte sa progression est 
bouché, même par un espace !!! (ce qui ne change rien à l'aspect visible de l'écran...). 


Ceci nous oblige. si nous voulons une emulation permettant ces effets qui peuvent 
être mis à profit pour un semblant d'animation, à considérer TROIS sortes différentes 
d'espaces affichables alors que l'écran de notre DAI n'en connait qu'un seul (pour 
memoire: espace "normal" + "validant" + “trou” iH) 


Bon courage 


Sébastien DUBOURG 
et Bruno DELANNAY 
IDC Bordeaux. 








I.D.C. 


MEEDS YDU 1... 





ROELS BE 





DAI RIT (EXCLUSIVIT ICLIC !): 
Claudius MORIN, CAEN (F) 


e iqu clavie 


Le truc est le méme que pour reconfigurer le clavier en AZERTY: il suffit de recopier 
en mémoire vive le tableau des codes ASCII qui figure en MEM (#E8C5 - "E934), par 
exemple, à partir de *6000. Pour cela, faire sous UTility, MEC85 E934 6000. Ensuite, par 
la commande S, changer les codes désirés, par exemple en attribuant des codes 
graphiques aux touches peu utilisées (éviter d'altérer les touches numériques !). Il reste à 
valider cette nouvelle table, en déviant le vecteur qui pointe normalement sur #E8C5. Ce 
vecteur réside en *2F9. Pour cela, faire par exemple: POKE *2F90 : POKE *2FA,*60 
(attention : les deux pokes sur la méme ligne, sous peine de surprises 1). 


П est intéressant d'affecter aux touches choisies les codes de caractères semi- 
graphiques complémentés à 128 (code + 128). Cela ne change rien à la représentation à 
l'écran, mais permet de visualiser les codes 12 et 13 (FF, CR) qui, normalement, provoquent 
une action à l'écran, et ne sont pas visibles en tant que caractères. Ce subterfuge 
permetde les incorporer directement dans des instructions PRINT ou REM. La seule 
précaution à prendre consiste à ne pas oublier que le mode EDIT refuse les caractères 
dont le code est supérieur à 128. Ils ne sont donc plus visibles dans се mode, mais ils ne 
sont pas perdus pour autant. Prudence donc, si vous modifiez des lignes Susceptibles 
d'en contenir. Pour récupérer un clavier normal, il faut restaurer le vecteur de clavier: 
POKE *2F9,*C5 : POKE *2FA,*E8 (toujours sur la méme ligne !). 
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(IDC Bordeaux) 


Ce type de clavier est beaucoup plus simple à dépanner .. quand on a des touches de 
rechange !! En effet le clavier est constitué de touches indépendantes les unes des autres, 
qui peuvent étre dessoudées séparément Mais si vous êtes isolé de tout magasin pourvu de 
ce Lype de touches, il peut étre bon de savoir rénover les contacts. 


ll ne faut cependant pas se leurrer sur l'efficacité de cette méthode qui, si elle 
permet une compléte rémission en cas d'accident aigu (comme la renverse d'un bol de 
chocolat |!) est loin d'égaler la solution radicale qui est de changer la touche malade. 
D'autant que le démontage de la partie interne de la touche est long et délicat 


Dans le texte. les mots entre " font référence aux annotations des schémas. Bien 
entendu, le démontage commence par l'enlèvement tous les branchements, prises, câbles 
(j'ai l'impression de me répéter ?) ainsi que le capot du DAI. Ensuite les cabochons de 
touche serontenlevés avec beaucoup moins de précautions que pour l'ancien modèle 
(ef article précédent) car le plastique de ces touches est bien plus solide que l'ancien. 
Puis vous retournez le circuit imprimé de façon à avoir le côté soudures au-dessus (et les 
touches en dessous} Alors vous dessoudez les pattes (pins) [2 par touche] des touches 
incriminées Une fois les pattes bien dégagees vous remettez le circuit imprimé dans sa 
position normale et vous extrayez la touche en appuyant sur les ‘cliquets’, à droite et à 
gauche du 'corps de touche', à l'aide de petites lames de tournevis, de facon à libérer la 
touche de la plaque métallique noire qui maintient les touches ensembles 


Vous avez donc maintenant sur votre plan de travail les touches à réparer. Vous allez 
pouvoir commencer le démontage et pénétrer au coeur de ce mécanisme petit à petit … . 


П faut d'abord enlever le ‘fond de touche’. Pour cela, ne pas tirer dessus !!, mais plutôt 
se munir dune pince avec laquelle vous saisissez une des deux ‘pins de fixation’ dans sa 
partie alors visible (-partie `à souder') puis vous lui imprimez une rotation comme si vous 
vouliez la dévisser tout en maintenant SOLIDAIRE, avec l'autre main, le ‘fond de touche du 
'corps de touche car ilest INDISPENSABLE de retirer entiérement les deux 'pins de 
fixation avant d'écarter le ‘fond de touche’ du ‘corps de touche’ sous peine d'arracher les 
'pattes de l'interrupteur de la partie 'contactque vous verrez plus bas. Oh ! surprise 
effectivement la pin se dévisse faisant apparaitre sa partie ‘pas de vis Vous opérez de 
méme avec la deuxième pin et vous pouvez à ce moment enlever le ‘fond de touche’. 


ATTENTION: Repérez trés ATTENTIVEMENT l'orientation interne des éléments 
contenus dans le ‘corps de touche’ car vous allez devoir tous les 
enlever puis (accessoirement) les remettre. 





Ne perdez pas le ressort poussoir qui se sauve tout seul à cet instant et videz 
l'interieur du ‘corps de touche en poussant sur le poussoir' Apparaissent alors les parties 
nommées ‘pièce intermédiaire dont 'l'ergot s'insère dans l'encoche du poussoir'. Cette 
'piéce intermédiaire sert de surface de glissement pour le ‘ressort contact’ qui a une 
forme de E renversé et qui s'appuie sur le ‘contact’ . 


Ce ‘contact’ est une petite pièce en plastique noir qui comporte à sa partie inférieure 
deux pattes en cuivre qui sont les contacts de l'interrupteur proprement dit. Sa face 
appuyée surle ressort contact’ esten caoutchouc noir souple tandis que les côtés et la face 


opposée (qui posséde un trou à son coin superieur droit) sont en plastique noir dur 
(partie nommée 'cuvelage') 


De toutes ces pièces démontées, seul le contact’ est délicat. Donc aprés avoir nettoye 
toutes ces piéces, vous les mettez bien en ordre de facon àles remonter dansle bon sens 
H et vous vous consacrez au démontage du contact. 


Cependant. avant d'aller plus loin il vous faut être convaicu de l'utilité de ce 
démontage qui n'est pas sans risque. En effet si vous aviez seulement des problemes 
mécaniques laissant le contact intact (louche qui ne senfonce pas ou qui ne remonte 
pas ) il est préférable (de jardin) de ne pas démonter ce petit contact et de se contenter du 
bon nettoyage des autres éléments que vous avez sur la table (de lapin} 


Si le mal a pénétré la partie ‘contact’, par le petit trou (par exemple du chocolat ou de 
l'eau ou toute autre substance susceptible d'oxyder les contacts : travail en atmosphère 
humide, salée …) il est indispensable d'aller nettoyer la partie vitale du contact 


Pour le démonter, décoller doucement le cadre en ‘scotch transparent colle sur 
la face en ‘caoutchouc souple’ et qui la maintient sur le 'cuvelage en plastique dur Vous 
découvrez le réel interrupteur de la touche constitué de trois couches successives à 1 
intérieur du 'cuvelage', qui sont du plus profond au plus superficiel : la première couche 
est une première épaisseur en cuivre se terminant раг la lere patte de l'interrupteur' 
comportanten son centre deux petits 'reliefs la deuxiéme couche est une épaisseur en 
isolant évidée еп son centre en forme de cadre et enfin la troisième couche est une 
deuxième épaisseur de cuivre se terminant par la Zeme patte de l'interrupteur 
comportant en son centre deux avancées’. 


Comment ça marche ? : 


Quand vous appuyez sur une touche, le poussoir s'enfonce, comprimant le ‘ressort 
poussoir (qui remonte la touche quand vous cessez d'appuyer dessus). Lorsque le 
poussoir s'enfonce il entraine avec luila ‘pièce intermédiaire qui comprime le ‘ressort 
contact. Etant comprimé, le ‘ressort contact’ transmet cette pression au ‘contact grace à 
la jambe centrale de son E renversé qui appuie au centre de la face en 'caoutchouc souple 
du ‘contact’. La face en 'caoutchouc souple’ se laisse déprimer grâce au trou de la face 
opposée du ‘contact’ sur sa face 'cuvelage' en ‘plastique dur qui laisse ainsi échapper l'air 
de l'intérieur du contact L'enfoncement dela face en ‘caoutchouc souple’ appuie sur 
les deux avancées de la feuille en cuivre solidaire de la ‘2ème patte de l'interrupteur' 
qui viennent toucher les ‘deux reliefs de la feuille en cuivre solidaire de la 'lère patte de 
l'interrupteur’, (dont ils étaient séparés par le cadre ‘isolant à l'état de repos), fermant 
ainsi fe contact !!. 


Pour rénover le contact défaillant, il suffit de nettoyer les deux avancées et les 
‘deux reliefs’. П n'est pas superflu d'en profiter pour enlever toutes les crasses qui ont 
pu pénétrer le contact . 


Le remontage s'effectue dans le sens inverse du démontage sans probleme majeur. 

N'oubliez pas que cette démarche qui peut vous apparaitre évidente à la lecture 
de ces lignesa nécessité de longues heures d'interrogations afin de trouver la VOIE et 
présenter un démontage qui autorise ensuite le remontage !!! 

П est formellement déconseillé de faire ce démontage aux parkinsoniens, aux 
éthyliques, aux myopes ou gens atteints de strabisme. 


Le président d'IDC Bordeaux 
Delannay Bruno 
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Clavier du DAI - nouveau modèle 

















| Vue générale du clavier avec touches (perspective cavaliere) 
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Ciavier du DAI - nouveau modèle 
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Le contact - de face et de dos 
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Interruptions et communicetion 
Su comment utiliser les ressources (cachées ?) du DAI 
Les fanas de la communication (modem,imprimantes ou 


minitel) sont ou seront un jour ou l'autre confrontés au problème du 
manque de temps. 


Prenons un exemple concret :le minitel,objet chéri par les 
membres d' IDC BORDEAUX. Les liaisons DAI-MINITEL se font à une 
vitesse de 1200 bauds, ce qui laisse entre chaque réception d'un 
caractère par le DAI à peu près 8 millisecondes.8 millisecondes,c'est 
beaucoup pour la majorité des taches que doit accomplir un émulateur 
minitel.Cependant,un simple scrolling de l'écran,méme en mode O,prend 
largement plus de temps que ces 8 millisecondes (Si vous ne me croyez 
pas,essayez et vous verrez que certains caractéres ne sont pas pris en 
compte lors d'un scrolling). 


Pour résoudre ces problèmes de communication,étant donné 
que la RS 232 du DAI пе posséde pas de broche indiquent que 
l'ordinateur n'est pas disposé à recevoir un caractère,plusieurs 
solutiens sont envisageables: 


1) la solution du boeuf : mise au point par le célébre 
mathématicien Ausgustin Leboeuf (1707-1783) .Elle consiste à s'arranger 
pour qu'aucune táche ne dépasse le temps fatidique (8 ms. dans le cas 
de notre bien-aimé minitel).C'est la méthode qui est utilisée dans 
"utilitaire minitel 3" ditribué gratuitement (sauf les frais de 
transport) par IDC BORDEAUX.Dans ce programme les scrollings de 
l'écran sont évités,quand l'écran est plein on revient à la premiére 
ligne ! 


2) l'utilisation de l'interruption TV numéro 7 toutes les 20 
millisecondes une interruption ? est effectuée.On peut l'employer pour 
ses propres besoins en mettant dans le vecteur d'interruption 
7,l'adresse de sa propre routine qui scrutera l'entrée de la RS232 et 
qui,si un caractère vient d'être reçu le stockera dans un buffer 
d'attente (Cf. le .programme  d'horloge dans le  hand-book pour 
l'utilisation de cette interruption) .Il ne faut bien-sür pas oublier,à 
la fin de sa propre routine,de faire un JUMP à l'adresse qui se 
trouvait initialement dans le vecteur d'interruption  ?.Le principal 
inconvénient de cette méthode est ce temps de 20 milliseconde qui dans 
le monde de la communication inter-ordinateur fait figure d'une 


éternité,et qui ne permet que des communications à 300 bauds 
maximum. 





3) l'utilisation d'un timmer la méthode est la même que celle 
exposée ci-dessus {nous reviendrons sur l'utilisation des 
timmers),mais elle permet de s'affranchir de cette durée parfois trop 
longue de 20 ms.Il ne faut bien sûr pas oublier de recharger le timmer 
à chaque fois et de mettre à 1 le bit correspondant du registre de 
masque. 
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4) l'utilisation des interruptions de communication : de loin la 
méthode la plus élégante.Cette méthode est détaillée dans la suite de 
l'article. 





Avant de poursuivre,imprégnons notre esprit des saintes paroles 
de la Bible,j’ai nommé le célébre Firmware Manual.Dans la rubrique 
“TICC : TIMMER + INTERRUPT CONTROLLER 5501:  FFQOO-FFFF",on voit qu'un 
seul circuit le 5501 gére à la fois la R8232 et les interruptions.Ün y 
apprend en outre que les interuptions 4 et 5 correspondent à 1а 
réception et à la transmition de données sur la А5232 (seule 
l’interruption relative 4 la réception présente un intérét pour nous). 


Mais comment ca marche ? C'est trés simple ! ... Dés qu'un 
caractére est regu sur la RS232,une interruption A a lieu.En fait pour 
que l'interruption ait effectivement lieu,il faut que les deux 
conditions suivantes soient réalisées 





1) Le bit 3 du registre de commande du 5501 (adresse : FFF4) doit 
être mis à 1 (bit 3 = interrupt acknoledge enable).Ceci est 
automatiquemment réalisé lors de l'initialisation du DAI. 


2) Le bit 4 du registre de masque des interruptions doit ëtre à 1 


A noter:Les interruptions du 8501 sont bufférisées,c’est à dire que si 
lors de l'interruption,le 8080 est dans le mode “interruptions 
interdites" (ordre assembleur DI),la demande d'interruption demeurera 
jusqu'à ce que le 8080 autorise à nouveau les interruptions (ordre 
assembleur EI).L'interruption sera alors exécutée. 


Comment exploiter cette interruption H d’une part chaque 
caractère recu est stocké dans un buffer. D'autre part une boucle lit 


les caractères du buffer et les traite au choix de l'utilisateur.Pour 
plus de clarté,passons tout de suite à l'application. 





étude détaillée du programme 





Le buffer: le buffer est une zone mémoire servant au stockage 
provisoire des caractères reçus sur la R5232.11 fonctionne en liaison 
avec deux pointeurs: un pointeur d'entrée (BUF2) et un pointeur de 
sortie (BUF1). 


La routine  INRBUF incrémente le pointeur de buffer contenu dans 
le registre HL du 8080. 2 cas se présentent 


-a) le pointeur pointe initialement une case mémoire au 
millieu du buffer,dont l'adresse est A,alors la case mémoire suivante 
dans le buffer est naturellement celle qui porte l'adresse A+1. 


-b) le pointeur pointe la dernière case mémoire du buffer,la 
case mémoire suivante dans le buffer ne peut étre alors choisie comme 
précédemment.La case suivante sera alors la première case mémoire du 
buffer. 


BUF2 va pointer la case mémoire dans le buffer où l'on va entrer un 
caractère. 


BUF1 pointe la position dans le buffer où l'on va lire un caractère 
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Le rôle de ces deux pointeurs étant défini, les commentaires du 
programme et , tout de même , un peu d'attention doivent permettre 
de comprendre le fonctionnement des routines OUTB et INB. 


2)1a gestion des interruptions š la mise en place de 
l'interruption 4 est faite раг la routine COMON.L action de cette 
routine est la suivante: 





a) Mise à 1 du bit A La gestion du registre de masque est 
similaire à celle de POROM et PORO (adresse FD06 et 40),11 ne faut pas 
oublier de poker le registre de masque (FFF8) et sa copie en RAM (SF)! 


b) Mise en place de l'adresse de notre propre routine 
(RECEPT) dans le vecteur d'interruption 4. 


Il faut prendre la précaution d'interdire les interruptions (DI),afin 
d'éviter qu'une interruption puisse intervenir avant que toutes les 


opérations ci-dessus soient terminées (celà pourrait faire planter le 
DAI). 


Ceci étant fait , dès qu'un caractère est regu , une 
interruption 4 a lieu : celà signifie que le programme en cours 
d'exécution (ici c'est notre boucle de lecture -voir plus loin- ) est 
interrompu et que la routine située à l'adresse 20H est exécutée.Cette 
routine en ВАМ est automatiquement mise en place lors de 
l'initialisation du DAI: 


20 - 00 NOP ;Aucune action. 

21 ES PUSH H ;Sauvegarde le registre HL. 

22 2А6А00 LHLD v4 "HL est chargé avec l' adresse 
H ;contenue dans le vecteur 4. 





25 ES PCHL ;Effectue un JUMP à cette adresse. 
Note : en fin de compte la routine dont l'adresse est dans V4 (ici 
RECEPT) est exécutée.Cette routine doit impérativement laisser 
inctacts tous les registres du 8080.11 est alors prudent de 


sauvegarder (PUSH) tous les registres au début de notre propre routine 


(sauf HL qui est déjà sauvé par la routine ci-dessus) et de les 
restituer à la fin (POP). 


Ceci étant dit,la routine RECEPT ne pose plus de difficulté. 


3)Le programme principal: il est tout bête ! C'est une boucle qu‘ 
lit les caracteres du buffer et les affiche sur  l'écran,c'est tout ! 
Dès que 50 caractères ont été affichés sur une même ligne,on passe à 
la ligne suivante. 





Cette méthode de gestion de buffer peut s'appliquer à 
tout problème relatif à 1а communication  informatique,alors bon 
amusement ! ... En attendant de voir comment nous l'avons mise en 
pratique dans notre èmulateur MINITEL. 


Sébastien Dubourg pour IDC BORDEAUX 
le 15/03/86 Président Bruno Delannay 
Résidence : Les Acacias bat. B3 
Avenue de Saige 33600 PESSAC 
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TITL ‘TEST INTERUPTION DE COMMUNICATION par S.Dubourg^' 








; 
; Sebastien Dubourg / IDC BORDEAUX le 9 fevrier 1986 






CONSTANTES DU PROGRAMME 





















@=0400 DEBUT EQU 400H ;Adresse de debut de programme. 
ORG DEBUT 
; 
; EE 
Adresses relatives au entree sortie 

; 245453646 

; 
@=FFF8 MASQUE EQU OFFFBH ;Registre de masque du 5501. 
Ө-005Ғ RM EQU БЕН Copie en Ram du registre 

2 де masque. 
9-006A V4 EQU 6AH ;Vecteur 4 d'interuption. 
@=FFFO INPUT EQU OFFFOH ;Port d'entree AS232 du 5501 
@=FFOS BAUD EQU OFFOSH ;Rgistre de vitesse RS232. 

; эта HE SE SE JE DE DE IE JE H4 Зе SE 4 IE зе зе 

;* Sous-programmes en ROM * 

EE TERRI EE 

; 
@=DE14 DUMP EQU ODE 14H ; Compare HL et DE (HL-DE). 

ҮЗЕ TEST COMMUNICATION 33936363 

H 
3EBB TESTI, MVI A 88H ; 1200 bauds/1 stop bit. 
3205FF STA BAUD 
218304 LXI H BUFDEB ;Entree et sortie du 
22А004 SHLD BUF1 ‚buffer au debut du buffer. 
22АҒ04 SHL.D BUF2 Р 
CD8204 CALL COMON Мей en service l’interupt.4 

š ‚pour la reception А5232. 
0632 LOOPOB MVI B 32H ;nb max de car..sur 1 ligne. 
CD5604 LOOPO? CALL OUTB ;Sort un car du buffer,si 
DA1304 JC (00Р0? ;celui-ci n'est pes vide. 
F680 ORI вон ;Desactive les саг. de 

$ ;controle. 
ЕЕ RST 5 ;Affiche ce caracter sur 
93 DB 3H ;l’ecran. ` 
05 DCA B ;DCR le compteur de car. 
C21304 JNZ LOOPO? ;Si c'est la fin de la ligne 
3E0D MVI A орн ;passe а la ligne suivante. 
EF RST 5 
03 DB 3H 
C31104 JMP LOOPOS 

# EE 
EE че еп tant que pointeur de Buffer * 
چو چب‎ JE چڊ‎ JE چڊ چو‎ AE SE JE 46 E Ie چب‎ 

; 
FS INRBUF PUSH PSW 
05 PUSH D 
118308 LXI D BUFF IN ;Si HL pointe la fin du 
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CD14DE CALL COMP ‚Buffer,la nouvelle adresse 
D1 POP D ;est celle du debut du 
DA3904 JC LINRB! ;buffer. 
218304 LXI H BUFDEB 
F1 POP PSW 
c9 RET 
23 LINRB1 INX H 
F1 POP PSW 
сә ВЕТ 
; 
; £ edes 
H Entre le contenu de l'accumulateur dans le buffer * 
HE LII Be IE Ce EE XE ae ae e dO ex 3 
; 
F5 INB PUSH PSW 
2AAF04 LHLD BUF2 ;HL-adresse nouvelle а” 
CD2804 CALL INRBUF ;entree du Buffer. 
EB XCHG ;Si elle est egale a celle 
2AAD04 LHLD BUF1 ;de la sortie du buffer,c' 
CD14DE CALL COMP ;est que le buffer est plein 
СА5404 Ј2 LINB1 exit sans rien changer. 
F1 POP PSW ;Sinon,sauvegarder la 
EB XCHG ;nouvelle adresse du 
22AF04 SHLD BUF 2 ;pointeur de sortie du buffer, 
2? MOV M,A set le car. dans le buffer. 
c9 RET 
DH 
F1 LINB1 POP PSW 
c9 RET 
езен LE BE 3E AE DE HE QE JE HE AE dE AE DE HE ааа HH AE AE ЗЕ HE Ae SE Зе Зе аа 
P Sort un car. du buffer et le met dans l'accumulateur * 
Қаза ааа HH EE AE AE SEE DE AE HO (EE 
3 
2AAF04 OUTB LHLD BUF2 Бі le pointeur d'entree et 
EB XCHG ‚le pointeur de sortie du 
2АА004 LHLD BUF1 ‚buffer sont les meme,c'est 
CD14DE CALL COMP ;que le buffer est vide; 
C26504 JNZ (10081 mettre alors le carry a 1 
3? STC ‚pour indique que le buffer 
c9 BET set vide. 
H 
CD2804 110081 CALL INRBUF ;Sinon.HL-add de la sortie, 
2E MOV A,M ;A=caractere lu dans le buf. 
B? ORA A ;Met le carry a O. 
22AD04 SHLD BUF 1 ;sauvegarde le nouveau 
c9 RET ;pointeur de sortie de buf. 
Dee аза зеза зе зе зев + 
;* Poke le caractere recu sur la A5232 dans le SE 
nn EE + + z T 
;Appele par l'interruption 4 liee a ia reception sur H8232. 
H 
F3 BECEPT DI interdit les inrteruptions 
F5 PUSH PSW ;pour eviter les STACK 
cs PUSH B ; QVERFLOW et sauvegarde tous 
05 PUSH D ;les registres. 
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1 REM CARATERES EN COULEUR ЕМ MODE 16 COULEURS 
2 REM LA VARIABLE А REPRESENTE LA COULEUR DE TEXTE = 0 
3 REM LA COULEUR DE FOND EST 8 

4 LETA=*8 

7 REM METTRE LA LIGNE EN MODE 16 COULEURS 

10 REM LIGNE 2 

11 POKE #B4F1,#FA 

15 REM 

2 MM METTRE SUR LA LIGNE 2, LA COULEUR ET LE CARACTERE CHOISIS 
27 REM 

28 REM BOUCLE POUR CHAQUE POSITION DE LA LIGNE 2 
29 FORX-*B4F0-132 TO *B4F0-2 STEP 2 

30 REM 

31 REM METTRE LA COULEUR DU TEXTE 

32 POKEXA 

33 REM 

34 REM METTRE LE CARACTERE ,*41 = A 

35 POKE X+1,*41 

36 REM 

37 REM AUGMENTER DE 1 LA COULEUR DU TEXTE 

38 REM SI DEPASSEMENT REMETTRE A ZERO 

39 REM 

40 A=A+16:IF A240 THEN LET А-%0 

4| REM 

42 REM POSITION SUIVANTE POUR LA LIGNE 

43 NEXTX 

44 REM 


ACCELEREZ LA VITESSE DE LECTURE D'UN PROGRAMME SUR CASSETTE AUDIO 


Vous connaissez peut-être l'astuce qui consiste à accélerer la 
vitesse de votre cassette pour relire vos programmes beaucoup plus 
vite que la normale. 

Cette méthode comporte cependant un inconvénient majeur : ceci n'est 
possible qu’aprés lecture de la première partie du programme (le 
LEADER), 11 n'est donc pas possible de relire l'intégralité d'un 
programme standard à grande vitesse. 


Pour rendre cela possible, il suffit d'augmenter la période du 
LEADER. La valeur de cette période dépend de deux données stockées aux 
adresses 82Е6 et #2Е7. A l'initialisation de la machine ces données 
prennent comme valeur : 824. Il faut tout simplement augmenter ces 
valeurs : à #80 par exemple. 


En resumé, il vous suffit de taper POKE #2E6,#80 et POKE H2E7,880 
avant d'enregistrer un programme, Vous pourrez ensuite, moyennant une 
petite "bidouille* sur votre cassette (pour en augmenter la vitesse de 
lecture), relire votre programme à grande vitesse, 


Laurent LEGRY 
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SAF OFF LDA INPUT ;Lit le car. recu sur А5232. 
87 ОНА А Бі c'est Ü ne pas le 
СА?СО4 JZ LIREC ;prendre en compte,sinon le 
созсо4 CALL INB ;rentrer dans le buffer. 
D1 LIREC POP D ;Recupere tous les registres 
C1 POP B ;et reprendre l'execution 
F1 POP PSW ;du programme principal. 
E1 POP H 
FB EI 
Cg AET 
; 
ұза 3 
;* Mise en marche de la routine de reception * 
E DE HE AE 3F AE 3838 AG BE E AE EE BE IEI A HH 3838383838 3638383838 £ 
H 
F3 COMON DI 
3ASF 00 LDA AM ;Autorise l'interruption 4 
E610 ANI 10H ;(reception sur R8232). 
325F00 STA RM 
32F8FF STA MASQUE 
2A6A00 LHLD va ; Vecteur 4 = pgm de 
228104 SHLO AV4 ;reception,et sauvegarde 1” 
216Е04 LXI H RECEPT ;ancien vecteur 4 (routines 
226A00 SHLD va ;mathematiques). 
FB EI 
C9 RET 
EE 6 
;* Arrete la routine de reception 
HE 
; 
F3 COMOFF DI 
3EC4 MVI A OCAH ;Interdit l'interuption 4. 
325F00 STA AM 
32F8FF STA MASQUE 
2AB104 LHLD Rv4 ;Recupere l'ancienne adresse 
226A00 SHLD V4 ‚du vecteur 4 (math.). 
FB EL 
C9 RET 
H 
; 
BUF1 DS 2H ;Pointeur de sortie de buff. 
BUF2 DS 2H ;Pointeur d'entree de buff. 
AV4 DS 2H ‚Zone de sauvegarde du 
d ;vecteur 4 d'origine. 
; 
; 
8-0400 BUFLON EQU 400H ;Longueur du buffer. 
BUFDEB DS BUFLON ¿Debut du buffer. 
9-0883 BUFFIN EQU BUFDEB«BUFLON ;Fin du buffer. 
; 
IDCBX END 
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UN BUG DANS L'AMD 9511 









Claude PICARD, CHALON SUR SAONE (F) 












L'instruction INOT ne fonctionne pas correctement, quand le processeur 
arithmétique AMD 9511 est en service sur le DAI. En effet, INOT 0 = -1, alors que l'AMD 
répond INOT 0 = 1. Pour corriger cette erreur, il convient de dévalider 1 AMD quand on 
emploie INOT. Ceci se fait très simplement par POKE *D40. On peut alors employer INOT, 
qui est normalement évalué par le basic DAI. Ce calcul effectué, on peut alors remettre 
l'AMD en service, par POKE *D4,*7B. 







Sicette manoeuvre vous ennuie, il reste la solution de tenir compte du bug. dans la 
mesure où l'on sait que: 













sans AMD ІМОТА--А-1 
avec AMD INOTA-- A^ 1 







L'adresse *D4 contient le déplacement (0 ou *7B) dans la table des sauts aux 
fonctions mathématiques. Attention donc, toute autre valeur dans  *D4 "plante" 
irrémédiablement le systeme, aucun calcul ne pouvant plus étre effectué 
correctement. Par exemple, la procédure de reconnaissance de la présence de l'AMD, 
décrite dans le manuel еп francais du DAI (p. 141) esta éviter..sionaun programme en 
mémoire ! Il est plus simple et moins dangereux de lire *D4, pour être fixé. Si le doute 
persiste, il reste la ressource de lever le capot: non seulement un co-processeur 
arithmétique ne passe pas inaperçu dans une machine, mais en plus sa voracité en 
alimentation électrique le distingue aisément: c'est le seul circuit intégré qui brüle 
franchement le doigt, au bout de quelques instants de fonctionnement ! 















































CARTE CENTRONICS : ERRATUM 





Une petite erreur s'est glissée dans l'article sur la carte 
CENTRONICS. 


En effet, la figure qui représente les deux faces du circuit imprimé 
et gui donne le brochage de la carte doit être légèrement modifiée. Il 
faut tout simplement inverser les appellations DTR et DTR2. 





Laurent LEGRY 
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EEN UITGAVE VAN MSX-CLUB BELGIE - NEDERLAND 
Alle programma's en 


artikels uit MSX CLUB 
MAGAZINE jaargang '85 
zijn nu verkrijgbaar in 
een handig jaarboek. 


136 bladzijden 


p.a. MOTTAART 20 3170 HERSELT 014/ 54 59 74 
uren lees- en 


programmeerplezier ! 


prijs : 









jaarboek 85 : 385 Fr/FI 20 
verzamelcassette : 600 Fr/FI 33 
jaarboek + cassette : 900 Fr/FI 50 














3 1/2 inch floppy ` 900 Fr/F1 50 
jaarboek + 3 1/2 inch floppy: 1.200 Fr/F167 


















INHOUDSTAFEL 
nn bespaar Uzelf uren 
Ee tikwerk en frustratie : 
Sew jen de verzamelcassette 
Sounomaster bevat alle programma’s 
| Кее чы welke in het boek 
Potpourri . .. 
Son Pes gepubliceerd zijn. 
Music box 
Kieurpotioden 
Basic Wordprocessor 
Time 
Kamertie tekenen 
Liniograph 
Adressenbestand 
A Dooihof р.а. Mottaart 20 - 3170 Herselt 
| À Tel. 014/ 54 59 74 
Eeer 








